将一段字符串按照某个字符串截取，然后加到数组的perl脚本

将一段字符串按照某个字符串截取，然后加到数组中的perl脚本。

这里可以要按照", "字符串进行截取，可以根据实际需要进行修改。

其实perl已经提供了一个函数split，就是实现这个功能的。代码如下：

my $str="a1111, b2222, c3333, d4444, ";
my @result = split( ',' , $str ) ;
print join(":",@result);

但是之前在不知道split命令前，我用了下面很“原创”的做法，实现了split的功能，代码如下：

$str="a1111, b2222, c3333, d4444, ";
@result;

while (index($str,", ") ne "-1" )
{
   $position=index($str,", ");
   $a=substr($str,0,$position);
   push(@result,$a);
   $str=substr($str,$position+2);
  
}
#push(@result,$str);#如果字符串的最后没有包括", "的话，需要加上该语句。因为对于最后一个截取完的字符串，因为不包含", "字符串，所以在上述循环中不会包括在内，因此在这里手工再次将其加到数组中。
print join(":",@result); #在一数组@array的元素之间加上一指定的字符$string,并将结果返回