Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: convert local time to unix epoch time

by poolpi (Hermit)
on Feb 03, 2009 at 20:09 UTC ( #741113=note: print w/ replies, xml ) Need Help??


in reply to convert local time to unix epoch time

See DateTime

#!/usr/bin/perl use strict; use warnings; use DateTime; #DateTime->DefaultLocale( 'fr_Fr' ) ; # if needed my $now = DateTime->now( time_zone => 'Europe/Paris' ); print $now->epoch, "\n";


hth,
PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb


Comment on Re: convert local time to unix epoch time
Download Code
Re^2: convert local time to unix epoch time
by ikegami (Pope) on Feb 03, 2009 at 21:43 UTC

    The following would be more appropriate.

    my $now = DateTime->now( time_zone => 'local' );

    Update: Fixed case.

      From DateTime doc:

      The time_zone parameter can be either a scalar or a DateTime::TimeZone object. A string will simply be passed to the DateTime::TimeZone->new method as its "name" parameter. This string may be an Olson DB time zone name ("America/Chicago"), an offset string ("+0630"), or the words "floating" or "local". See the DateTime::TimeZone documentation for more details.

      From DateTime::TimeZone :

      If the "name" parameter is "local", then the module attempts to determine the local time zone for the system.
      If a local time zone is not found, then an exception will be thrown.


      ...For me, at least, it throws actually an exception ;)


      hth,
      PooLpi

      'Ebry haffa hoe hab im tik a bush'. Jamaican proverb

        Then you should have answered the OP and explained that it doesn't work for you before giving the workaround for your system and passing it off the solution.

        Note that it works fine for me on the Windows and linux systems on which I tried it.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://741113]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2014-11-24 08:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (137 votes), past polls