In perl, c'è sempre più di un modo per fare qualcosa. Ecco un che utilizza solo un modulo che viene fornita di serie con il Perl:
#! perl -w
use strict;
use Time::Local;
my $d1 = "Feb 3 12:03:20";
my $d2 = "Feb 4 00:00:30";
# Your date formats don't include the year, so
# figure out some kind of default.
use constant Year => 2012;
# Convert your date strings to Unix/perl style time in seconds
# The main problems you have here are:
# * parsing the date formats
# * converting the month string to a number from 1 to 11
sub convert
{
my $dstring = shift;
my %m = ('Jan' => 0, 'Feb' => 1, 'Mar' => 2, 'Apr' => 3,
'May' => 4, 'Jun' => 5, 'Jul' => 6, 'Aug' => 7,
'Sep' => 8, 'Oct' => 9, 'Nov' => 10, 'Dec' => 11);
if ($dstring =~ /(\S+)\s+(\d+)\s+(\d{2}):(\d{2}):(\d{2})/)
{
my ($month, $day, $h, $m, $s) = ($1, $2, $3, $4, $5);
my $mnumber = $m{$month}; # production code should handle errors here
timelocal($s, $m, $h, $day, $mnumber, Year - 1900);
}
else
{
die "Format not recognized: ", $dstring, "\n";
}
}
my $t1 = convert($d1);
my $t2 = convert($d2);
print "Diff (seconds) = ", $t2 - $t1, "\n";
per rendere questo davvero pronto per la produzione, ha bisogno di una migliore gestione dell 'anno (per esempio, cosa succede quando la data di inizio è nel mese di dicembre e la fine data nel mese di gennaio?) e una migliore gestione degli errori (ad esempio, cosa succede se l'abbreviazione di 3 caratteri è mispelled?).
wow ... molto più coinvolto di quanto mi aspettassi ... grazie –
@xivix, è inutilmente complicato per quello che vuoi. [La risposta di vmpstr] (http://stackoverflow.com/a/9134822/132382) è totalmente utilizzabile qui. – pilcrow
Dipende tutto da quanti moduli puoi o userai. Vedere la risposta di @vmpstr, usando Date :: Parse. Se l'installazione di quel modulo è accettabile, provaci. È probabile che stia facendo un lavoro migliore per gestire formati di dati e possibili errori diversi da questo breve frammento di codice. – theglauber