产品数据分析 ( x兄版 ) - 4 交集

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 ";
 }
'