| 早速のご教授ありがとうございます。 ですが、下記のように書き換えてみましたが表示が変です。 「元」 <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>
記述方法に間違いがあるのかもしれませんがわかりませんので、教えて頂ければ ありがたいです。 どうかよろしくお願いいたします。
|