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

配列 @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/08/30(水)
フエダイ釣れました(54センチ・2キロ)
2017/08/29(火)
パッとしない
2017/08/25(金)
変なの釣れたw
Keyword : 配列,セレクトメニュー,プルダウン,select,出力

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