Perl Posix :: StrpTime - Mis datos se ven como a las 9:31:00 a.m. - Quiero extraer el minuto y realizar un cálculo
Pregunta
Quiero extraer el minuto de un tiempo específico que existe en la segunda columna de un archivo delimitado por comas y realizar un cálculo. El formato del tiempo es el siguiente:
9:31:00 am
Quiero extraer el valor minuto y calcular los minutos totales del día hasta ahora. Hago esto en Subroutine Get_time. Pero el valor devuelto siempre es cero, lo que me hace pensar que no estoy usando Posix :: StrpTime correctamente. Cualquier idea sería maravillosa. Gracias.
#!/usr/bin/env perl
use strict;
use POSIX::strptime;
use Text::CSV;
sub get_time
{
my($str) = @_;
my ($sec, $min, $hour) = (POSIX::strptime($str, '%I:%M:%S')) [3,4,5];
print "$hour\n";
return($hour*60 + $min)
}
open my $fh, "<", datafile.txt
my $csv = Text::CSV->new() or die "Failed to create Text::CSV object";
my $line = <$fh>;
die "Failed to parse line <<$line>>\n\n" unless $csv->parse($line);
my @columns = $csv->fields();
while ($line = <$fh>)
{
chomp $line;
die "Failed to parse line <<$line>>\n\n" unless $csv->parse($line);
my @columns = $csv->fields();
die "Insufficient columns in <<$line>>\n" if scalar(@columns) < 1;
my $minute = get_time($columns[1]);
print "$minute\n";
}
Solución
En get_time, tienes la línea
my ($sec, $min, $hour) = (POSIX::strptime($str, '%I:%M:%S')) [3,4,5];`
De acuerdo con la documentos, StrpTime regresa
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = POSIX::strptime("string", "Format");
Entonces parece que necesitas
my ($sec, $min, $hour) = (POSIX::strptime($str, '%I:%M:%S')) [0,1,2];
en cambio.
¡La mejor de las suertes!
Otros consejos
Es imposible determinar correctamente el número de minutos en un día antes de cierto tiempo sin conocer la zona horaria y posiblemente la fecha.
$ perl -MDateTime -E'
for (10..16) {
my $dt = DateTime->new(
year => 2011,
month => 3,
day => $_,
hour => 9,
minute => 31,
second => 0,
time_zone => "America/New_York",
);
( my $ref_dt = $dt->clone )->truncate(to => "day");
my $minutes = ($dt - $ref_dt)->in_units("minutes");
say($dt->ymd, " ", $minutes);
}
'
2011-03-10 571
2011-03-11 571
2011-03-12 571
2011-03-13 511 <------
2011-03-14 571
2011-03-15 571
2011-03-16 571