Perl：split函数

split 是 Perl 中的一个内置函数，用于将字符串按照指定的分隔符分割成一个数组。其基本用法为：

@array = split /PATTERN/, $string;

其中 PATTERN 为分隔符的正则表达式，$strin                                                               6g 为待分割的字符串。调用 split 函数后，函数会根据 PATTERN 将 $string 分割成多个子字符串，并将它们存储到数组 @array 中。

例如，下面这个示例代码使用空格作为分隔符将字符串 "Perl is a high-level language" 分割成了一个包含 5 个元素的数组：

perl复制代码

my $str = "Perl is a high-level language";
my @array = split /\s+/, $str;
print "@array\n";  # 输出 "Perl is a high-level language"

此外，split 函数还提供了一些可选参数，使得你可以更精确地控制分割行为。比如：

• 指定分割的最大次数：@fields = split /pattern/, $string [, $limit]
• 输出的字段中去除模式匹配的值：@fields = split /pattern/, $string [, $limit] [, EXPR]
• 按照多个模式来划分数据：@fields = split [ /pattern/ ] [, $string [, $limit ]]（其中 /pattern/ 可以是一个模式列表，比如 /[,\t]/ 表示逗号或制表符）