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]