- 853 名前：nobodyさん [04/05/27 14:41 ID:fquSccy3]
- 日替わりでリンク先を替えるCGIなんすけど
日替わりで替わらないんです どこか間違っているんでしょうか？
#!/usr/local/bin/perl
$datafile="hoge.dat";
@lines=&in_file($datafile);
($log_date,$num)=split(/\s/,shift(@lines));
$now_date=&get_time;
if($now_date ne $log_date){
if(++$num>$#lines){$num=0;}
&out_file_open($datafile);
print OUT "$now_date\t$num\n";
foreach(@lines){print OUT;}
&out_file_close;
}
&location($lines[$num]);
sub location{print "Location: $_[0]\n\n";exit;}
sub get_time{
$ENV{'TZ'}="JST-9";
local($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy)=localtime(time);
$year+=1900;$mon++;
if($mon <10){$mon ="0$mon"; }
if($mday<10){$mday="0$mday";}
if($hour<10){$hour="0$hour";}
if($min <10){$min ="0$min"; }
if($sec <10){$sec ="0$sec"; }
"$year$mon$day";
}
|
 |
