A handy Perl script to calculate duration in seconds

最新推荐文章于 2024-07-21 01:08:12 发布

ThinkHY

最新推荐文章于 2024-07-21 01:08:12 发布

阅读量2.3k

点赞数

分类专栏： Perl

本文链接：https://blog.csdn.net/ThinkHY/article/details/8651628

版权

Perl 专栏收录该内容

44 篇文章 0 订阅

订阅专栏

#!/usr/bin/perl

use strict;
use warnings;
use DateTime;

my $dt2 = DateTime->new(
                       year   => 2013,
                       month => 8,
                       day    => 2,
                       hour   => 9,
                       minute => $ARGV[0],
                       second => $ARGV[1],
                       time_zone => 'local',
                     );

my $dt1 = DateTime->new(
                       year   => 2013,
                       month => 8,
                       day    => 2,
                       hour   => 9,
                       minute => $ARGV[2],
                       second => $ARGV[3],
                       time_zone => 'local',
                     );

my $duration = int($dt1->subtract_datetime_absolute($dt2)->delta_seconds);

print "duration: $duration\n";

__END__