| ■No8365に返信(ライムさんの記事)
> 早速のご教授ありがとうございます。
> ですが、下記のように書き換えてみましたが表示が変です。
これは、プログラム処理の記述なので、
print<<"xxx";
：
xxx
の間にかいても意味がありません。
<td>/
_FORM_
@OS=(0,"Win95","Win98","WinME","WinNT4.0","Win2000","WinXP");
print"<select name=sel>";
foreach $OS (@OS){
print"<option value=\"$OS\"";
if($FORM{"sel"} eq $OS){print" checked";}
print">$OS";
}
print"</select>";
print<<"_FORM_";
※必須入力</td></tr>
としてください。
|
