version 1.32, 2021/06/04 13:50:06 |
version 1.33, 2021/06/04 14:47:20 |
Line 175 LINE: while (<STDIN>) { |
|
Line 175 LINE: while (<STDIN>) { |
|
} |
} |
} |
} |
$matches or die "unmatched CSV line: $line"; |
$matches or die "unmatched CSV line: $line"; |
my $date = $fields[$date_field] or |
my $date = $fields[$date_field]; |
die "date parse error: $line"; |
defined $date or die "undefined date: $line"; |
|
$date or die "date ($date) parse error: $line"; |
eval '$date =~ ' . $date_regex; |
eval '$date =~ ' . $date_regex; |
foreach my $i (@amount_fields) { |
foreach my $i (@amount_fields) { |
if (defined($fields[$i])) { |
if (defined($fields[$i])) { |