配列でセレクトメニュー(プルダウン)を出力

配列 @prefs を利用する場合

単純に配列をプルダウンメニューとして出力する場合

print "<select name=\"pref\">\n";
 	foreach (1..$#prefs){
 	print "<option value=\"$prefs[$_]\">$prefs[$_]</option>\n";
 	}
 print "</select>\n";

既存データを読み込み、状況を保持して表示する場合(既存の値を$prefとする)

print "<select name=\"pref\">\n";
 	foreach (1..$#prefs){
 	print "<option value=\"$prefs[$_]\"";
 	print " selected" if ($prefs[$_] eq $pref);
 	print ">$prefs[$_]</option>\n";
 	}
 print "</select>\n";
 


2017/05/19(金)
イカは釣れたがヒラマサにバカにされたorz
2017/04/27(木)
うっかりヒラスズキ(83cm/6kg位)釣れてもうたw
2017/04/13(木)
デカいブリ(97cm/9.1kg)釣れました
Keyword : 配列,セレクトメニュー,プルダウン,select,出力

CopyRight 2004 - 2017 © Nap.st all right reserved.