14.4 DBMファイルをマージする

Perl Cookbook
  • それぞれのハッシュをリストとして処理する
%OUTPUT = (%INPUT1, %INPUT2);
  • それぞれのキーと値のペアをループ処理する
%OUTPUT = ();
foreach $href (\%INPUT1, \%INPUT2) {
  while (my($key, $value) = each(%$href) {
    if (exists $OUTPUT{$key}) {
      # どちらの値を使用するかを判断し、必要なら$OUTPUT{$key}を設定する
    } else {
      $OUTPUT{$key} = $value;
    }
  }
}