| 早速のご教授ありがとうございます。
ですが、下記のように書き換えてみましたが表示が変です。
「元」
<td>/ <select name=sel>
<option value=0>OSを選択して下さい。
<option value="Windows 95">Windows 95
<option value="Windows 98">Windows 98
<option value="Windows ME">Windows ME
<option value="Windows NT4.0">Windows NT4.0
<option value="Windows 2000">Windows 2000
<option value="Windows XP">Windows XP
</select> ※必須入力</td></tr>
「修正後」
<td>/
@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>"; ※必須入力</td></tr>
記述方法に間違いがあるのかもしれませんがわかりませんので、教えて頂ければ
ありがたいです。
どうかよろしくお願いいたします。 |
