eachとイテレーター

質問

each関数について質問させていただきます。perl5.8.0です。

eachに渡す引数を、ハッシュ“変数”ではなくハッシュ記法を直接指定する方法はないでしょうか。
具体的には、
%hash = (a=>1,b=>2);
while (($k,$v)=each %hash) { ～
ではなく、
while (($k,$v)=each (a=>1,b=>2)){ ～
というように、eachに直接キーと要素を渡したいのです。

以下のようにいろいろ試したのですが、うまくいきません。

【1】 perl -e 'while (($k,$v)=each (a=>1,b=>2)){print "$k:$v\n";}'
Type of arg 1 to each must be hash (not list) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.

【2】 perl -e 'while (($k,$v)=each %{a=>1,b=>2}){print "$k:$v\n";}'
syntax error at -e line 1, near "%{"
Execution of -e aborted due to compilation errors.

【3】 perl -e 'while (($k,$v)=each %{(a=>1,b=>2)}){print "$k:$v\n";}'
（何も出力されない）

【4】 perl -e 'while (($k,$v)=each %{{a=>1,b=>2}}){print "$k:$v\n";}'
a:1
a:1
a:1
a:1
：
（無限ループ）

予想では【3】の書き方が正しいような気がしましたが出力されず、そして【4】は少なくとも参照はできているようなのに、イテレーターが正しく動作していないような感じです。
（そもそもイテレーターというのは変数じゃなく無名ハッシュのようなものでも有効なのでしょうか？）

また、試しにkeysで同じことをしてみると、

【5】 perl -e 'foreach (keys (a=>1,b=>2)){print "$_\n";}'
Type of arg 1 to keys must be hash (not list) at -e line 1, near "2)"
Execution of -e aborted due to compilation errors.

【6】 perl -e 'foreach (keys %{a=>1,b=>2}){print "$_\n";}'
syntax error at -e line 1, near "%{"
Execution of -e aborted due to compilation errors.

【7】 perl -e 'foreach (keys %{(a=>1,b=>2)}){print "$_\n";}'
（何も出力されない）

【8】 perl -e 'foreach (keys %{{a=>1,b=>2}}){print "$_\n";}'
a
b

keysでは【8】が期待どおりの動作をします。

どうぞよろしくお願いいたします。

回答No.1

pipipi523 · ベストアンサー

eachに無名変数を使った場合リファレンスが毎回変わるのでダメです

具体的にはこんな感じです

($k,$v)=each %{$a={a=>1,b=>2}};
print "$k $v\n";
($k,$v)=each %{$a};
print "$k $v\n";
結果(OK)
a:1
b:2

($k,$v)=each %{$a={a=>1,b=>2}};
print "$k $v\n";
($k,$v)=each %{$a={a=>1,b=>2}};#$aの内容が変わる
print "$k $v\n";
結果(NG:whileにすると永久ループ)
a:1
a:1

これではダメなのでしょうか？
perl -e "%hash=(a=>1,b=>2);while(($k,$v)=each %hash){print \"$k:$v\n\";}"

お礼

そもそも何故こんなことをしたいのかというと、単にコードの視認性だけなんです(^^;
ある設定内容を保持している %conf というハッシュがあって、値はハッシュリファレンスで2階層のレベルがあります。
%conf = (
setA => {conf1 => 'valueA1', conf2 => 'valueA2', conf3 => 'valueA3'},
setB => {conf1 => 'valueB1', conf2 => 'valueB2', conf3 => 'valueB3'},
setC => {conf1 => 'valueC1', conf2 => 'valueC2', conf3 => 'valueC3'},
);
というように初期化されているとします。
で、処理の過程で設定を追加する（つまり再初期化ではなく元の内容を保持させたまま追加する）、しかもある程度まとまった数、というコードを書きたいのですが、普通に書けば、conf4とconf5を追加するなら
${$conf{'setA'}}{'conf4'} = 'valueA4';
${$conf{'setA'}}{'conf5'} = 'valueA5';
${$conf{'setB'}}{'conf4'} = 'valueB4';
${$conf{'setB'}}{'conf5'} = 'valueB5';
${$conf{'setC'}}{'conf4'} = 'valueC4';
${$conf{'setC'}}{'conf5'} = 'valueC5';
という感じでしょうか。
簡潔化するなら (...) = (...) という書き方もできるかもしれません。
これを、

while (my ($name, $value) = each {
setA => {conf4 => 'valueA4', conf5 => 'valueA5'},
setB => {conf4 => 'valueB4', conf5 => 'valueB5'},
setC => {conf4 => 'valueC4', conf5 => 'valueC5'},
}) {
$conf{$name} = {%{$conf{$name}}, %$value};
}

と書けたら視認性も上がってメンテやいろいろな面で良いだろうと考えたのです。

一時的なハッシュを用意して
%tmp = (
setA => {conf4 => 'valueA4', conf5 => 'valueA5'},
setB => {conf4 => 'valueB4', conf5 => 'valueB5'},
setC => {conf4 => 'valueC4', conf5 => 'valueC5'},
);
while (my ($name, $value) = each %tmp) { $conf{$name} = {%{$conf{$name}}, %$value}; }

と書けばいいんですが、可能なら極力シンプルにしたかったもので。

補足

（長すぎると怒られたため補足欄に分けさせていただきます）

ご回答ありがとうございます。
すみません、なんとなく解ったような解らないような…苦笑
リファレンスが変わるというのは、参照される側つまり被リファレンスのデータが、eachの実行のたびに作り直されてしまう＝イテレーターも初期状態なので無限ループ、という理解でよろしいでしょうか。
で、keysは期待どおり動いたのは、参照するのは初めの1回だけで、取得した内容をメモリ上のどこかに保持している、ということなんですかね？

言い換えれば、eachを使うなら変数を用意しなきゃいけない、と理解すればいいでしょうか？