ハッシュの要素の取り出し方

質問

ハッシュの要素の取り出し方で困っています。
以下のようにハッシュの要素を取り出して
thmlタグの中に埋め込もうとしたのですが、

push( @arry, { 'syubetu' => 'cat' ,
'name' => 'たま',
'age' => '12才',
},
{ 'syubetu' => 'dog' ,
'name' => 'ポチ',
'age' => '2才' ,
},
{ 'syubetu' => 'bird' ,
'name' => 'ピ－コ',
'age' => '5才' ,
}
);
@html_tag = (
'<table><tr><td>' . "\n",
'syubetu=$syubetu : name=$name : age=$age' . "\n",
'</td></tr></table>' . "\n",
);

foreach ( @arry ){
foreach $tag( @html_tag ){
$tag =~ s/\$syubetu/$_->{"syubetu"}/gm;
$tag =~ s/\$name/$_->{'name'}/gm;
$tag =~ s/\$age/$_->{'age'}/gm;
print $tag;
}
$tag2 .= "syubetu: " . $_->{'syubetu'} . "\r\n";
$tag2 .= "name: " . $_->{'name'} . "\r\n";
$tag2 .= "age: " . $_->{'age'} . "\r\n";
}

print $tag2;

結果が先頭の要素を登録数分、繰り返し出力してしまいます。
でも、同じforeachの中でも$tag2の場合は
正常に出力されます。
この違いがわからなくて困っています。
どなたか教えていただけますでしょうか。

・出力結果
<table><tr><td>
syubetu=cat : name=たま : age=12才
</td></tr></table>
<table><tr><td>
syubetu=cat : name=たま : age=12才
</td></tr></table>
<table><tr><td>
syubetu=cat : name=たま : age=12才
</td></tr></table>
syubetu: cat
name: たま
age: 12才
syubetu: dog
name: ポチ
age: 2才
syubetu: bird
name: ピ－コ
age: 5才

回答No.1

sakusaker7 · ベストアンサー

foreach $tag (@html_tag) {
　　$tag =~ s/\$syubetu/$_->{"syubetu"}/gm;
　　$tag =~ s/\$name/$_->{'name'}/gm;
　　$tag =~ s/\$age/$_->{'age'}/gm;
　　print $tag;
}

の後で @html_tagの内容をチェックしてみてください。
内容が変更されていると思います。

上記のようなループの場合、$tagは@html_tagの要素のコピーではなく
エイリアス(別名)になります。つまり、$tagを書き換えることによって
元の配列要素にも影響が及びます。このため、二番目以降の要素に
関しての置換は条件が成り立たないのでまったく行われません
(一回目の置換結果がそのまま残る)。

ですので、
foreach $tmp (@html_tag) {
$tag = $tmp;

とでもして、コピーを作ってからそれに対して操作してやればよろしいかと。

お礼

ご回答ありがとうございます。
コピーを作ってから埋め込む処理に変えてから
思うような結果になりました。
とても助かりました。