Question

I want to extract the minute from a specified time that exists in the 2nd column of a comma delimited file and perform a calculation. The format of the time is as follows:

9:31:00 AM

I want to extract the minute value and calculate the total minutes in the day so far. I do this in subroutine get_time. But the returned value is always zero which makes me think that I am not using POSIX::strptime correctly. Any insight would be wonderful. Thank you.

#!/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";
}

Answer 1

In get_time, you have the line

my ($sec, $min, $hour) = (POSIX::strptime($str, '%I:%M:%S')) [3,4,5];`

According to the docs, strptime returns

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = POSIX::strptime("string", "Format");

So it looks like you need

my ($sec, $min, $hour) = (POSIX::strptime($str, '%I:%M:%S')) [0,1,2];

instead.

Best of luck!