| Perl タイムスタンプ取得 129 days ago by admin #!/local/bin/perl/ ##————————————–## ## タイムスタンプ取得 ##————————————–## ($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time); $year += 1900; $mon++; @week = (’日’,'月’,'火’,'水’,'木’,'金’,'土’); $wday =$week[$wday]; $date_now=sprintf(”%04d/%02d/%02d %02d:%02d:%02d”,$year,$mon,$day,$hour,$min,$sec); __end_ ... CGIFARM ... - cgifarm.net |