利用perl对月数据做简单的统计

基于shell脚本收集的系统信息，利用perl对月数据做简单的统计

shell收集略，以下是perl部分：

#!/usr/bin/perl

open(CPU,"cpu")||die("wjlcn:Can't open cpu text");
my @cpu1=<CPU>;
close(CPU);

open(IO,"io")||die("wjlcn:Can't open io text");
my @io1=<IO>;
close(IO);

open(SWAP,"swap")||die("wjlcn:Can't open swap text");
my @swap1=<SWAP>;
close(SWAP);

open(MEM,"mem")||die("wjlcn:Can't open mem text");
my @mem1=<MEM>;
close(MEM);

my @total;
my $n=0;
$tcpu=0;
$tio=0;
$tswap=0;
$tmem=0;


foreach(0..$#cpu1){
$n=$n+1;
chomp($cpu1[$_],$io1[$_],$swap1[$_],$mem1[$_]);
$total="$n $cpu1[$_] $io1[$_] $swap1[$_] $mem1[$_]";
print $total."\n";
$tcpu=$tcpu+$cpu1[$_];
$tio=$tio+$io1[$_];
$tswap=$tswap+$swap1[$_];
$tmem=$tmem+$mem1[$_];
}

$avgcpu=$tcpu/$n;
$avgio=$tio/$n;
$avgswap=$tswap/$n;
$avgmem=$tmem/$n;

print "------------system infomration-------------\n";
print "cpu average is $tcpu/$n=$avgcpu"."\n";
print "io average is $tio/$n=$avgio"."\n";
print "swap average is $tswap/$n=$avgswap"."\n";
print "mem average is $tmem/$n=$avgmem"."\n";
print "$avgcpu $avgio $avgswap $avgmem \n";
print "------------------wjlcn--------------------\n";