This archive contains answers to questions sent to Unidata support through mid-2025. Note that the archive is no longer being updated. We provide the archive for reference; many of the answers presented here remain technically correct, even if somewhat outdated. For the most up-to-date information on the use of NSF Unidata software and data services, please consult the Software Documentation first.
=============================================================================== Robb Kambic Unidata Program Center Software Engineer III Univ. Corp for Atmospheric Research address@hidden WWW: http://www.unidata.ucar.edu/ =============================================================================== ---------- Forwarded message ---------- Date: Fri, 24 Sep 1999 16:02:04 +0000 From: Bob Lipschutz <address@hidden> To: Robb Kambic <address@hidden> Subject: Re: 19990729: NOAA LDM Training... Hi, Robb. Yep, I agree that it appears to work they way you'd like... that's unadvertised behavior. According to the Camel book, anyway, the arguments to this function are identical to the output of gmtime, where year is number of years since 1900. In my test, the results are the same either way, though. Hmmm... Sorry for the red herring. -Bob > Bob, > > I did a test on sub 'timegm' for years 1999-2005 and it gave the correct > results. Am I missing something here? > > theyear =99, time =917920920 > theyear =0, time =949456920 > theyear =1, time =981079320 > theyear =2, time =1012615320 > theyear =3, time =1044151320 > theyear =4, time =1075687320 > > I'm using perl: This is perl, version 5.004 > > > Thanks, > Robb... > > > > $time = timegm(0, $mm, $hh, $mday, $themonth -1, $theyear, 0, 0, 0) ; <=== ditto > > > > > > As we discussed during the class, you'll also want to repair > > the bug in mailpqstats: > > > > # create 0 data report if no data received > > if( ! $data ) { > > ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = > > gmtime( $basemtime ); > > $mon++ ; > > $bintime = sprintf( "%s%02d%02d%02d%02d", > > "19", $year, $mon, $mday, $hour ) ; <== should use '$year+1900' > > print MAIL "$type $host $bintime NONE 0\n" ; > > > > ============================================================================= == > Robb Kambic Unidata Program Center > Software Engineer III Univ. Corp for Atmospheric Research > address@hidden WWW: http://www.unidata.ucar.edu/ > ============================================================================= == >