En Perl, siempre hay más de una forma de hacer algo. Aquí está uno que utiliza sólo un módulo que viene de serie con 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";
Para hacer esto realmente listo para la producción, se necesita un mejor manejo del año (por ejemplo, ¿qué ocurre cuando la fecha de inicio es en diciembre y finales ¿Fecha en enero?) y un mejor manejo de errores (por ejemplo, ¿qué sucede si la abreviatura de 3 caracteres del mes está mal escrita?).
wow ... mucho más complicado de lo que esperaba ... gracias –
@xivix, es innecesariamente complicado para lo que quieres. [la respuesta de vmpstr] (http://stackoverflow.com/a/9134822/132382) es totalmente factible aquí. – pilcrow
Todo depende de la cantidad de módulos que pueda o quiera usar. Vea la respuesta por @vmpstr, usando Date :: Parse. Si la instalación de ese módulo es aceptable, adelante. Es probable que esté haciendo un mejor trabajo manejando diferentes formatos de datos y posibles errores que este breve fragmento de código. – theglauber