文章详情
时间:2010-08-06 来源:liukaiyi
find ./login ./test_* -type f -exec cat {} \; |perl -nle ' if( /at=(\d{4}-\d{2}-\d{2}).*adid=(.*?)<.*wv=(.*?)</ ){ $h{"1.2"}{$2}++ if $3 eq "1.2" ; $h{"1.3"}{$2}++ if $3 eq "1.3" and $1 eq "2010-08-04"; } END{ %a = %{ $h{"1.2"} } ; %b = %{ $h{"1.3"} } ; my @inter = grep {$a{$_}} keys %b; # 求交集 my $ja = scalar @inter ; my $a2 = scalar keys %a ; my $a3 = scalar keys %b ; print "1.2=$a2 1.3=$a3 1.3与1.2交集=$ja "; } '
我狙击打的贼准
暗夜编年史
狙击先生子弹行动
1970-01-01