uration object that represents 24 hours. The 'compare' function returns 1 if the first duration is greater (i.e. the difference is greater than 24 hours), 0 if they're equal and -1 if the second is greater (i.e. less than 24 hour difference). This should be enough to get you started:use DateTime;
use DateTime::Duration
my $duration = DateTime::Duration->new( hours => 24 );
my $dt1 = DateTime->new( year => 2009, month => 6, day => 22 );
my $dt2 = DateTime->new( year => 2009, month => 6, day => 21 );
if ( DateTime::Duration->compare( $dt1 - $dt2, $duration ) ) {
# difference is > 24 hours
}
#!/usr/bin/perl -w
use Time::Local;
my %months = ( Jan => 0, Feb => 1, Mar => 2, Apr => 3, May => 4, Jun => 5,
Jul => 6, Aug => 7, Sep => 8, Oct => 9, Nov => 10, Dec => 11, );
my $d = `date`;
my $time;
# Wed Jun 24 23:43:22 AUSEST 2009
if ($d =~ /^\w+ (\w+) (\d+) ([\d:]+) \S+ (\d+)$/) {
my $mon = $months{$1};
my $mday = $2;
my ($hour, $min, $sec) = split(/:/, $3);
my $year = $4 - 1900;
$time = timelocal($sec,$min,$hour,$mday,$mon,$year);
print "time is $time\n";
} else {
die "couldn't parse date output: $d";
}why, doesn't the module work?
use POSIX;
my $unixtime = mktime ($sec, $min, $hour, $day, $mon, $year, $wday, $yday);DateTime::Format::Epoch - Convert DateTimes to/from epoch seconds
SYNOPSIS
use DateTime::Format::Epoch;
my $dt = DateTime->new( year => 1970, month => 1, day => 1 );
my $formatter = DateTime::Format::Epoch->new(
epoch => $dt,
unit => 'seconds',
type => 'int', # or 'float', 'bigint'
skip_leap_secondss => 1,
start_at => 0,
local_epoch => undef,
);
my $dt2 = $formatter->parse_datetime( 1051488000 );
# 2003-04-28T00:00:00
$formatter->format_datetime($dt2);
# 1051488000Using the internal localtime or gmtime functions, localtime and gmtime return an array:
my $time = time; # or any other epoch timestamp
my @months = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
my ($sec, $min, $hour, $day,$month,$year) = (localtime($time))[0,1,2,3,4,5,6];
# You can use 'gmtime' for GMT/UTC dates instead of 'localtime'
print "Unix time ".$time." converts to ".$months[$month]." ".$day.", ".($year+1900);
print " ".$hour.":".$min.":".$sec."\n";For more advanced date manipulation, try using the DataTime module:
use DateTime;
$dt = DateTime->from_epoch( epoch => $epoch );
$year = $dt->year;
$month = $dt->month; # 1-12 - also mon
$day = $dt->day; # 1-31 - also day_of_month, mday
$dow = $dt->day_of_week; # 1-7 (Monday is 1) - also dow, wday
$hour = $dt->hour; # 0-23
$minute = $dt->minute; # 0-59 - also min
$second = $dt->second; # 0-61 (leap seconds!) - also sec
$doy = $dt->day_of_year; # 1-366 (leap years) - also doy
$doq = $dt->day_of_quarter; # 1.. - also doq
$qtr = $dt->quarter; # 1-4
$ymd = $dt->ymd; # 1974-11-30
$ymd = $dt->ymd('/'); # 1974/11/30 - also date
$hms = $dt->hms; # 13:30:00
$hms = $dt->hms('|'); # 13!30!00 - also timeConverting from normal date to epoch in Perl
Using the Time::Local module:
use Time::Local;
my $time = timelocal($sec,$min,$hours,$day,$month,$year);
# replace 'timelocal' with 'timegm' if your input date is GMT/UTC
Using the DataTime module:
use DateTime;
$dt = DateTime->new( year => 1974, month => 11, day => 30, hour => 13, minute => 30,
second => 0, nanosecond => 500000000, time_zone => 'Asia/Taipei' );
$epoch_time = $dt->epoch;use POSIX;
my $t1 = POSIX::mktime( 0, 0, 0, 22, 5, 109 );
my $t2 = POSIX::mktime( 0, 0, 0, 21, 5, 109 );
print "Number of seconds difference: " . abs( $t1-$t2 ) . "\n";