home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / perl / 7929 < prev    next >
Encoding:
Internet Message Format  |  1993-01-21  |  988 b 
  1. Path: sparky!uunet!paladin.american.edu!howland.reston.ans.net!zaphod.mps.ohio-state.edu!saimiri.primate.wisc.edu!usenet.coe.montana.edu!news.u.washington.edu!grover!flanagan
  2. From: flanagan@grover (Jim Flanagan)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: month in localtime?
  5. Date: 21 Jan 1993 17:12:29 GMT
  6. Organization: Society for Creative Access to Materials
  7. Lines: 15
  8. Message-ID: <1jmlhtINNgnl@shelley.u.washington.edu>
  9. References: <1993Jan20.205428.19963@fnbc.com>
  10. Reply-To: flanagan@stat.washington.edu
  11. NNTP-Posting-Host: grover.stat.washington.edu
  12.  
  13. jja@fnbc.com (Joseph Alotta) writes:
  14. : greetings,
  15. : 
  16. : how does one get the month out in localtime?
  17. : this one's right out of the book:
  18. : 
  19. : #!/usr/local/bin/perl  
  20. : ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  21. : print "$sec,$min,$hour,$mday,mon=$mon,$year,$wday,$yday,$isdst\n";
  22. : exit;
  23.  
  24.   Something like:
  25.  
  26. @Months = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);
  27. print "$Months[$mon] $mday, $year/n"l
  28.