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

質問

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

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

回答No.1

ralf124c · ベストアンサー

こんなのでいいんですか？
-----------------------------------------------------ここから
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なんていう手もありますが・・・

お礼

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

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