■こんなCGI作ってください■
■ このスレッドは過去ログ倉庫に格納されています
0768nobodyさん
2005/09/12(月) 21:00:20ID:???環境(httpdとかperlのバージョン等)を書いてくれないんでなんとも言えんけど、
ためしに下記のコードを
Win2k
ActivePerl v5.8.6 built for MSWin32-x86-multi-thread
CygwinPerl v5.8.5 built for cygwin-thread-multi-64int
で動かしたらちゃんと動いてるようなので、今みたいな情報の小出しだと解決しないと思われ。
require 'timelocal.pl';
$ENV{'TZ'} = 'JST-9';
$\ ="\n";
print time;
print timelocal(0, 0, 0, 12, 8, 105);
print timelocal(0, 0, 0, 15, 8, 105);
print timelocal(0, 0, 0, 18, 8, 105);
$now = time();
if ($now >= timelocal(0, 0, 0, 12, 8, 105) && $now < timelocal(0, 0, 0, 15, 8, 105))
{ print 'a.html'; }
elsif ($now >= timelocal(0, 0, 0, 15, 8, 105) && $now < timelocal(0, 0, 0, 18, 8, 105))
{ print 'b.html'; }
else
{ print 'c.html'; }
__END__
■ このスレッドは過去ログ倉庫に格納されています