perl cgiでnameを

質問

perl cgiでフォームの行と列を以下のようにハッシュと配列を使って生成しようとしました：

my %temp = (
'test1' => 'テスト1',
'test2' => 'テスト2'
)

for (my $linepnt = 1; $linepnt<8; $linepnt++){
foreach my $key (keys(%temp)){
print "<td><input type=\"text\" name=\"$key . '_' . $linepnt\" value=\"$in_data{$key . '_' . $linepnt}\" style=\"width:3em;font-size:medium\">mL</td>";
}
}

するとフォームからの入力を受けた側ではnameを
test1_7 というように受け取らずに
test1+.+%27_%27+.+7
と受け取っていることが分かりました。

name=\'test1_' . $linepnt\"　
とするだけなら正しく
test1_7　
として受け取ってくれます。

なにが間違っているのでしょうか。
ご指導ください。

回答No.2

t_ohta · ベストアンサー

print文にダブルクォートで囲った文字列を渡すと、囲まれた範囲内で変数を展開してくれ、それ以外は文字列としてそのまま出力します。
なので、ドットとシングルクオートは文字列としてそのまま出力されます。
一方、$in_data{$key . '_' . $linepnt} の場合は変数とシングルクオートで囲まれた文字列を . 演算子で結合する処理になります。

もしprint文の中でやりたいのであれば
print "name=\"${key}_${linepnt}\" ";
のように書いていけば解決します。

お礼

詳細なご回答ありがとうございます。ダブルクオートの中では、変数は展開されるけれども、演算はされずに、「.」は文字列として出力されるという点、よくわかりました。よくわからないのは、print文の中で

name=\'test1_' . $linepnt\"
と書いた場合に、ただしくname=test1_7 というように解釈してくれたことです。'test1_'7という文字列として解釈されるはずだと思うのですが。。

回答No.1

t_ohta

print の中で「 . '_' . 」とドットとシングルクオートを入れているからでしょう。

お礼

ありがとうございました。print文の前で、
my $name = $key . '_' . $linepnt;
として $nameを作ったうえで、これをprint 文に入れるとうまくいきました。しかし分からないのは、
$in_data{$key . '_' . $linepnt}
はそうしなくてもうまくいったのは、どうしてでしょうか。。。