1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
#!/usr/bin/perl
use strict;
while(<>) {
chomp;
my @row = split(/\t/, $_);
if($row[2] =~/(\d+)-(\d+)-(\d+)\s+(\d+):(\d+):(\d+)/) {
$row[2] = format_date($1, $2, $3, $4, $5);
}
local $" = "\t";
print "@row\n";
}
sub format_date {
my ($year, $mon, $day, $hour, $min) = @_;
my %months = (1 => 'Jan', 2 => 'Feb', 3 => 'Mar', 4 => 'Apr', 5 => 'May', 6 => 'Jun',
7 => 'Jul', 8 => 'Aug', 9 => 'Sep', 10 => 'Oct', 11 => 'Nov', 12 => 'Dec');
my $ampm = 'AM';
if($hour > 13) {
$hour -= 12;
$ampm = 'PM';
}
return "$months{$mon} $day $year $hour:$min$ampm";
} |
Partager