foreach (1..4){ 英文字$_→$新しい変数として使いたい

$a1="あああ";
$a2="いいい";
$a3="ううう";
$a4="えええ";
$a5="おおお";
foreach (1..5){
$view = "a$_";
print <<"HTML";
$view<BR>

HTML
}

の時、$viewに$a1～$a5の値を表示させるようにしたいのですが、上記の場合ですとa1～a5として表示されます。

foreachで$_で順に数字をaと組み合わせて出来た文字列を変数として使い、元々指定してある値を取得するようにしたいのです。

どのようにすれば解決できますでしょうか。ご掲示頂けましたら幸いです。

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/04/28 02:19

$a1="あああ";

$a2="いいい";
$a3="ううう";
$a4="えええ";
$a5="おおお";
foreach (1..5){
$view = ${"a$_"};
print <<"HTML";
$view<BR>

HTML
}

この回答へのお礼

"a$_"を${}内にもってくれば良かったんですね。
なぜそうするといいのか・・・については、{}の意味など調べてみたいと思います。

有難うございました！

お礼日時：2005/04/28 13:18

No.3 回答者： BLUEPIXY 回答日時： 2005/04/28 15:49

＞なぜそうするといいのか？

言語的な説明：
変数名の文字列をリファレンスとして使うことをシンボリックリファレンスと言います。
Perlでは、\を使ってリファレンス（参照）を使うことができます。Ｃで言うポインタみたいなもので変数の中身でなく、変数そのものを指すものみたいなものです。$を使ってリファレンスからその中身（変数そのものを使って変数の中身を取り出す）を取り出すことができます。これをデリファレンスといいます。
文字列を使ったリファレンス・デリファレンスといっても
$"a1"とは書けないのでその部分が変数名ですよと示してやるために
${"a1"}の様に書きます。
また、
$temp="a$_";
として
$view=$$temp;
としても同じ意味になります。

この回答へのお礼

例と共に詳しいご説明有難うございます。
ご教授感謝致します。

お礼日時：2005/04/29 05:21

No.1 回答者： alicia-y 回答日時： 2005/04/28 01:37

$a1="あああ";

$a2="いいい";
$a3="ううう";
$a4="えええ";
$a5="おおお";
foreach (1..5){
eval '$view = $' . "a$_";
print <<"HTML";
$view<BR>

HTML
}
とします。
でも私なら
push @a , "あああ";
push @a , "いいい";
push @a , "ううう";
push @a , "えええ";
push @a , "おおお";
foreach $view (@a){
print <<"HTML";
$view<BR>

HTML
}
のようにしますね。

この回答へのお礼

evalというのがあったんですね。
少し調べてみましたが、文字列をPerlのコードとして実行するみたいで便利な構文があるんですね。

また配列にしたものをpushで末尾に入れて・・・も、もう少しじっくり思考してみたいと思います。

為になる解決案有難うございました。

お礼日時：2005/04/28 13:16