Perl统计若干文件中返回码的个数

有一大堆日志，需要按设备统计一下各个设备中日志记录中返回码的个数。

设备名字可以根据文件名字获得， 日志记录是有一定格式的。第七个字段是 返回码。

分别shell和perl实现了，Perl不熟，网上拼了个代码。

?

?

use Text::ParseWords; use Data::Dumper; my $result; my %table; $argv_len = @ARGV; if($argv_len == 0) { print "it need filename/n"; exit(1); } $cmd="ls '".join("' '",@ARGV)."' |"; open(PIPE,$cmd); @filenames = <PIPE>; close(PIPE); foreach(@filenames){ analy($_); } sub trim { my $string = shift; $string =~ s/^/s+//; $string =~ s//s+$//; return $string; } sub analy { my $filename= trim(shift); $cmd="cat $filename |"; open(PIPEFILE,$cmd); @lines=<PIPEFILE>; close(PIPEFILE); my ($sn,$dev_id,$time) = split(/_/g,$filename); my $dev=$dev_id.'-'.substr($sn,-3); my %code; foreach(@lines) { my @line=quotewords(" ",1,$_); $code{$line[7]}++; } $table{$dev} = [] unless exists $table{$dev}; push @{$table{$dev}},/%code; } foreach my $dev(sort keys %table) { print "$dev:/n "; my @code = @{$table{$dev}}; foreach my $code(@code) { foreach my $key(keys(%{$code})) { $result{$key}+= $code->{$key}; } } print "keys /t/t values/n"; foreach my $value (keys(%result)) { print $value." /t/t".$result{$value}; print "./n"; } }?

?

使用shell就比较简单了，只有几行：

?

#!/bin/sh while read line do echo $line grep HTTP /path/20110527/ -r | grep $line | awk '{a[$10]++} END {for(i in a) print i " "a[i]}' done < dev_list?