5.12 2つのハッシュから共通/非共通のキーを見つける
## 共通のキーを見つける my @common = (); foreach (keys %hash1) { push (@common, $_) if exists $hash2{$_}; } # @commonには、共通のキーが格納される ## 一方のハッシュにしかないキーを検出する my @this_not_that = (); foreach (keys %hash1) { push(@this_not_that, $_) unless exists $hash2{$_}; }