Wie berechne ich Datum Unterschied in Perl

Question

Ich bin ein Anfänger in Perl-Skripting. Ich habe eine Verpflichtung, wo in ich den Unterschied von zwei Daten in Minuten/Sekunden

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

können Sie mir sagen, finden müssen, wie wir diese, Parsing, Berechnung, Module erf erreiche und alle

Dank Goutham

Answer 1

Time::Piece zu einem festen Bestandteil von Perl wurde seit 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

konvertieren beide Daten an UNIX Zeit

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

Dann Sie können eine einfache mathematische Subtraktion durchführen, um die Anzahl der Sekunden zwischen den beiden zu finden.

Dann ist es einfach Mathe den ganzen Weg Minuten, Stunden zu bekommen, usw.