perl split

`split` 是 Perl 编程语言中的一个函数，用于将字符串拆分为子字符串数组。语法为：

split /pattern/, string [, limit]

其中，`/pattern/` 是分隔符的正则表达式，`string` 是要拆分的字符串，`limit` 是可选参数，用于限制拆分的子字符串数量。

例如，将一个以逗号分隔的字符串拆分为数组：

my $str = "apple,banana,orange";
my @arr = split /,/, $str;
print join(", ", @arr);  # 输出：apple, banana, orange

在上面的示例中，`split /,/` 表示使用逗号作为分隔符，将 `$str` 拆分为数组。`join(", ", @arr)` 则将数组元素用逗号连接为一个字符串输出。