use strict; my $str = "2-19-01 3:49pm"; my %months = qw(1 Jan 2 Feb 3 Mar); my ($month,$day,$year,$time) = split /-|\s/,$str; my $dataDate = "$months{$month} $day 20$year $time\n"; print $dataDate;
In reply to Re: Date processor
by enoch
in thread Date processor
by tune
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |