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

}本文轉自cloves 51CTO部落格，原文連結:http://blog.51cto.com/yeqing/1738647