Help for this page

Select Code to Download


  1. or download this
    use DateTime                qw( );
use DateTime::Format::Epoch qw( );
...

my $dt = $formatter->parse_datetime( 3700771200 );
print( $dt->strftime( '%x %X' ), "\n" );  # Apr 10, 2087 12:00:00 AM
  2. or download this
    use DateTime::Format::Epoch::Unix qw( );

my $dt = DateTime::Format::Epoch::Unix->parse_datetime( 3700771200 );
print( $dt->strftime( '%x %X' ), "\n" );  # Apr 10, 2087 12:00:00 AM