テキストをテキストボックスで表示させたい

カレンダーの日付をクリックすると、以下のリンクが出るようにしました。
A href="http://hoge.com/form.cgi?year=2017&mon=3&day=15"

リンク先のform.cgiを、

#!/usr/bin/perl
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $alldata, $ENV{'CONTENT_LENGTH'});
} else {
$alldata = $ENV{'QUERY_STRING'};
}
foreach $data (split(/&/, $alldata)) {
($key, $value) = split(/=/, $data);

$value =~ s/+/ /g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg;
$value =~ s/\t//g;

$in{"$key"} = $value;
}

print "Content-Type: text/html; charset=Shift_JIS\n\n";
print "<html>\n";
print "<head><title>サンプル</title></head>\n";
print "<body>\n";
print "<p>日付は$in{'year'}年$in{'mon'}月$in{'day'}日です。</p>\n";
print "</body>\n";
print "</html>\n";

exit;

として、テキストとしての表示はできるのですが、これをそれぞれ

と言ったテキストボックスに独立して表示させたいのですが、どのような書式で記述したら良いのかがわかりません。
ご教示のほど、よろしくお願い致します。

行動規範の内容に同意します

回答2件

こんな感じでだぶるこーとのエスケープはいりません。

Perl
1%in = (year => 2017, mon => 3, day => 17);
2print "<p>日付は$in{'year'}年$in{'mon'}月$in{'day'}日です。</p>\n";
3print qq(<input type="text" name="year" value="$in{'year'}">\n);
4print qq(<input type="text" name="mon" value="$in{'mon'}">\n);
5print qq(<input type="text" name="day" value="$in{'day'}">\n);

実行結果

Perl
1<p>日付は2017年3月17日です。</p>
2<input type="text" name="year" value="2017">
3<input type="text" name="mon" value="3">
4<input type="text" name="day" value="17">

追記

たぶん書くところを間違っていたので修正しました。

投稿2017/03/16 16:18

編集2017/03/16 16:20

Zuishin

総合スコア28660

ベストアンサー

print "<p>日付は$in{'year'}年$in{'mon'}月$in{'day'}日です。</p>\n";
ここを

print "<input type="text" name="year" value="$in{'year'}"> \n";
print "<input type="text" name="mon" value="$in{'mon'}"> \n";
print "<input type="text" name="day" value="$in{'day'}"> \n";

こんな感じでいけませんかね？
言語わからないんで、なんとなく$in{'year'}で年が入るのかなと思いまして。
ダブルコートのエスケープはお願いします。

投稿2017/03/16 15:14