配列とハッシュの配列の要素を比較してファイルに書き出したい

質問

配列Aとハッシュの配列Bがあり、配列の内容をファイルに書き出そうとしています。このとき、パターンマッチをして、Aにしかない場合はAのデータを、Bにしかない場合はBを、両方にある場合は、Aをファイルに出力しようとしています。

以下のようなループのまわし方をしようとして、試行錯誤しましたが、うまい方法を思いつくことができませんでした。
ご教授いただければうれしいです。

while (defined $A[$i]) {
　my ($name, $pass);
　$j=0;
　while (($name, $pass) = each(%{$B[$j]})){
　　　if ($A[$i] =~ /$name/) {

　　　}
　　　$j++;
　}
$i++;
}

回答No.3

noname#37358 · ベストアンサー

いくつか不明な点があります。
・Bの要素は、キーと値のどっちを出力するのか。
・出力の順番はどういう風なのか。

とりあえず、比較部分として私が思いついたのは、

・Aにある要素をまず出力する。
・この時、Bにも要素があるのならBから要素を削除する。
・Bの残った要素を出力する。

という方法です。
ただし、配列Bの中身をいじくりたくないのであれば、いったん中身を(ハッシュリファレンスの中身も含めて)コピーする必要があります。
ですが、比較部分が一回で済むのでそれなりに効率は良いと思います。

回答No.2

naoto0314

ちょっと気になったんですけど、ハッシュに名前がついていないように見えます。

全ての連想配列要素に処理を行なう場合は
　while (($name, $pass) = each(%変数名)){
でよかったと思います。

回答No.1

togino

B というのは、ハッシュの配列なんですよね。
　$j=0;
　while (($name, $pass) = each(%{$B[$j]})){
　　$j++;
　}

これでは、おかしいですよ。
ハッシュの配列なんですから、B は２重ループになるはずです。

　for($j = 0; $j < @B; $j ++){
　　while (($name, $pass) = each(%{$B[$j]})){

　　}
　}

---
ただ質問文のプログラムでは
> Bにしかない場合はBを
というのが得られないと思うんですが・・・（汗）