【Perl 】初心者コーナーPart5

>>247 さん

$filename = 'times.dat';

print "いらっしゃいませ\n";

($tmday, $tmon, $tyear )
  = ( gmtime( time + 9 * 60 * 60 ) )[3..5];

if( open fp,"$filename" ){
  ($mday, $mon, $year )
    = split ',',<fp>;
  close fp;
}

if( ($tyear>$year) or ($tmon>$mon) or ($tmday>$mday) ){
  print "今日最初のアクセスです(´ー`)\n";
  if( open fp,">$filename" ){
    print fp "$tmday,$tmon,$tyear";
    close fp;
  }
}

基本はコレでいいかと。