Re: [MacPerl] timelocal question

[pudge@pobox.com (Chris Nandor)]

At 16.30 97/6/9, Patton, Paul B (MN10) wrote:
>  require "timelocal.pl";
>  @now = localtime;
>  $x = timelocal( @now );
>  print join( ":", @now), "\nTimelocal returned: $x\n";

Try using the Perl5 module (which is included in the MacPerl distribution):

  use Time::Local;
  @now = localtime;
  $x = timelocal( @now );
  print join( ":", @now), "\nTimelocal returned: $x\n";


returns:
55:34:18:9:5:97:1:159:1
Timelocal returned: 2948726095

--
Chris Nandor                 pudge@pobox.com                 http://pudge.net/
%PGPKey=('B76E72AD',[1024,'08 24 09 0B CE 73 CA 10  1F F7 7F 13 81 80 B6 B6'])



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch