perl-切割数组

#!/usr/bin/perl
my $message = '';
$message = supperMonitor();
@strArr=split(/\n/,$message);

my $i=1;
my $count=1;
my $msg='';
while($count<=@strArr){
$msg .= "====$strArr[$count-1]==\n";
if($i==5){
print "==$i=$msg==\n";
$msg='';
$i=0;
}
$i++;
$count++;
}
本文出自 “技术屌丝” 博客，谢绝转载！