---累加值
[websphere@mbank-app1 logs]$ cat awk.sh
awk '{a[$1]+=$2}END{for (i in a) print i,a[i]}' $1
[websphere@mbank-app1 logs]$ cat aaa
a 1
a 3
a 10
b 2
b 7
b 9
[websphere@mbank-app1 logs]$ sh awk.sh aaa
a 14
b 18
#################################################################
----这个是匹配出现的次数
[websphere@mbank-app1 logs]$ cat t1.pl
#用法传入日志文件
if ( $#ARGV < 0 ){
print "please input your file!
";
exit(-1);
}
$logfile= $ARGV[0];
my %log;
open (LOG ,"<","$logfile");
while (<LOG>) {
chomp;
##正则条件匹配
$var= (split / /, $_)[0];
$log{$var}++;
}
#print %log;
while(my($ip, $times) = each %log) {
print "$ip $times
";
}
[websphere@mbank-app1 logs]$ perl t1.pl aaa
a 3
b 3