CGIの変数に配列を代入する方法

$a = "$FORM{'b'}<>$FORM{'c'}<>$FORM{'d'}<>$FORM{'aaa1'}<>$FORM{'aaa2'}<>$FORM{'aaa3'}<> ----------------$FORM{'aaa600'}<>";

の$FORM{'aaa1'}<>から$FORM{'aaa600'}<>までをすべて書かなくていい方法はありますでしょうか？
お手数ですが、お教えください。

No.1 ベストアンサー 回答者： ralf124c 回答日時： 2006/12/20 15:43

こんなのでいいんですか？

-----------------------------------------------------ここから
my @aTMP;
for(1..600){
my $k = "aaa".$_;
push(@aTMP,$FORM{$k});
}
my $sTMP = join('<>',@aTMP);
$a = "$FORM{'b'}<>$FORM{'c'}<>$FORM{'d'}<>".$sTMP;
-----------------------------------------------------ここまで

-----------------------------------------------------ここから
$a = "$FORM{'b'}<>$FORM{'c'}<>$FORM{'d'}";
for(1..600){
my $k = "aaa".$_;
$a .= '<>'.$FORM{$k};
}
-----------------------------------------------------ここまで

ハッシュ全部に対して行うならFOREACHなんていう手もありますが・・・

この回答へのお礼

ありがとうございましたｍ（＿＿）ｍ
問題なく動きました。！！

大変ありがとうございました”！！

お礼日時：2006/12/21 08:59