Cách tính chênh lệch ngày trong perl

Question

Tôi là người mới trong kịch bản perl. Tôi có một yêu cầu mà trong tôi cần phải tìm sự khác biệt của hai thời điểm trong phút/giây

$date1 = Fri Aug 30 10:53:38 2013 
$date2 = Fri Aug 30 02:12:25 2013 

bạn có thể cho tôi biết làm thế nào để chúng ta đạt được điều này, Parsing, tính toán, mô-đun req và tất cả

Cảm ơn Goutham

Answer 1

Time::Piece đã là một phần tiêu chuẩn của Perl kể từ 2007.

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 
use Time::Piece; 

my $date1 = 'Fri Aug 30 10:53:38 2013'; 
my $date2 = 'Fri Aug 30 02:12:25 2013'; 

my $format = '%a %b %d %H:%M:%S %Y'; 

my $diff = Time::Piece->strptime($date1, $format) 
     - Time::Piece->strptime($date2, $format); 

say $diff; 

Answer 2

Chuyển đổi cả ngày để UNIX thời gian

Xem http://metacpan.org/pod/Date::Parse

Sau đó, bạn có thể làm phép trừ toán đơn giản để tìm số giây giữa hai.

Sau đó, nó là toán học đơn giản tất cả các cách để có được phút, giờ, vv