Chris wrote:
>
> How to change "20020706" to "July 6, 2002"?
One way:
my $date = '20020706';
my @months = qw(
January February March April May June July
August September October November December
);
my ( $year, $mon, $day ) = unpack 'a4a2a2', $date;
my $newdate = "$months{$mon - 1} " . $day + 0 . ", $year";
Another way:
my $date = '20020706';
my @months = qw(
January February March April May June July
August September October November December
);
my ( $year, $mon, $day ) = $date =~ /(\d{4})(\d\d)(\d\d)/;
my $newdate = sprintf '%s %d, %d', $months{$mon - 1}, $day, $year;
And another way:
my $date = '20020706';
use POSIX 'strftime';
my $year = substr $date, 0, 4;
my $mon = substr $date, 4, 2;
my $day = substr $date, 6, 2;
my $newdate = strftime '%B %e, %Y', ( 0, 0, 0, $day, $mon, $year );
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
