[grid@devrac1 ~]$ cat sum.pl
if ( $#ARGV < 0 ){
print "please input your file!\n";
exit(-1);
}
$logfile= $ARGV[0];
my %log;
open (LOG ,"<","$logfile");
while (<LOG>) {
chomp;
if ($_ =~ /^\[\[seri(.*)(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/){
print "\$1 is $1\n";
$var= (split /_/, (split /:/,$_)[2])[0];
$log{$var}++;
}
}
#print %log;
while(my($ip, $times) = each %log) {
print "$ip $times\n";
}
[grid@devrac1 ~]$ perl sum.pl 1.log
$1 is :288i19BF:122.96.47.8_se[[seri:288i19BF:12
$1 is :288i19BF:122.96
if ( $#ARGV < 0 ){
print "please input your file!\n";
exit(-1);
}
$logfile= $ARGV[0];
my %log;
open (LOG ,"<","$logfile");
while (<LOG>) {
chomp;
if ($_ =~ /^\[\[seri(.*)(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/){
print "\$1 is $1\n";
$var= (split /_/, (split /:/,$_)[2])[0];
$log{$var}++;
}
}
#print %log;
while(my($ip, $times) = each %log) {
print "$ip $times\n";
}
[grid@devrac1 ~]$ perl sum.pl 1.log
$1 is :288i19BF:122.96.47.8_se[[seri:288i19BF:12
$1 is :288i19BF:122.96