TSperl 発言

foreach $key (sort keys %book1){
  if($book2{$key}){
    print "== $key\n";
    $i++;
  }else{
    print "-- $key\n";
    $j++;
  }
}
foreach $key (sort keys %book2){
  unless($book1{$key}){
    print "++ $key\n";
    $k++;
  }
}
print "第1版: ",$i + $j, "件\n";
print "第2版: ",$i + $k, "件\n";
print "同一タイトル数: ${i}件\n";
print "減少タイトル数: ${j}件\n";
print "増加タイトル数: ${k}件\n";

終わりを書き直して件数の部分だけを抜き出すと、

第1版: 334件
第2版: 414件
同一タイトル数: 94件
減少タイトル数: 240件
増加タイトル数: 320件

藤岡 和夫
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/