'This the right place for this?
use strict; use Time::Piece; my $time=time(); print "time=$time\n"; my $d= Time::Piece->strptime($time,'%s'); my $epoch= $d->epoch; print "epoch=$epoch\n"; print "diff: ".($time-$epoch)."\n"; __END__
time=1068561586 epoch=1068565186 diff: -3600
Why? Same thing for all parsing functions, some localtime value parsed and output via epoch gives a time 1h off.
Christian.
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
