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++;
}

本文出自 “技术�潘�” 博客，谢绝转载！