perl セレクトメニューを ↓の者です。
前質で→ http://oshiete1.goo.ne.jp/qa4142221.html
#print "<option value=\"$day1\">$day1"; で出来たのですがｗ
dayの日範囲を多くするとかなり長くなってしまい(T_T)
（初心者のくせに）foreachを使ってみようかと
エスケープしたりダブルコーションにしたり色々やっても・・・
<option>に月日が表示されません(T_T)
基本的に間違っているのでしょうか・・・ お願いします。
＊他にも変なところがあったら教えて下さい。
--------------------------------------
<select name=dd><option value="なし" selected> ↓ <option value="なし">指定なし
EOM
foreach (0 .. $#pl) {
if ($in{'plan'} eq $_) {
print "<option value=\"$_\">$pl[$_]\n";
} else {
print "<option value=\"$_\">$pl[$_]\n";
}
}
print "</option></select>\n";
#--------------------------------------
### ↑メイン.cgiです。↑
### ↓ サブ.cgiです。↓
#--------------------------------------
# 時間
$time = time();
# 範囲日
$day1 = day0($time + (86400 * 2));
$day2 = day0($time + (86400 * 3));
$day3 = day0($time + (86400 * 4));
############ 上下の行のday数が１４日間位まで続く・・・
@pl = ('$day1', '$day2', '$day3');
# 日計算
sub day0{
my(@weekdayname) = ('日','月','火','水','木','金','土');
my $time = shift || time();
my $day0 = $time + (24 * 60 * 60);
my ($yyyy, $mm, $dd, $w) = (localtime($day0))[5,4,3,6];
$yyyy += 1900;
$mm += 1;
return(
sprintf('%4d/%2d/%2d(%s)', $yyyy, $mm, $dd, $weekdayname[$w])
);
}
