home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / Japan / Theme / bearth / bin / getgmtday < prev    next >
Text File  |  2017-09-21  |  350b  |  15 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # getgmtday
  4. # - get yesterday's date on GMT
  5. # - result is printed to stdout
  6. # usage: getgmtday
  7. # created by haruki@st.rim.or.jp 1996/11/24
  8.  
  9. $secofday=(60 * 60 * 24);
  10. ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
  11.     =gmtime(time - ($secofday));
  12. $year += 1900;
  13.  
  14. printf ("%04d%02d%02d\n", $year, $mon+1, $mday);
  15.