On Sat, 27 Aug 2005, Gomez, Juan wrote:
>
> I have a problem need to work with date
>
> I have a input like these : 20050829 and I need to change it to
> something like this : Aug 29 2005
>
> but it still eludes me how to do that
>
> can anyone help me please?
Well the steps are;
1. Break it into three pieces 2005 08 29
2. Relate 08 to Aug
3. Reassemble in the order you want.
To break it up, use unpack
my ( $y, $m, $d ) = unpack( "A4 A2 A2", 20050809 );
To relate a number to a month, try an array
my @monthhs = qw(Jan Feb .... Dec);
or use a hash
my %months = (
1 => "Jan",
2 => "Feb",
etc
12 => "Dec");
and to print it the way you want, try
print "$d $month{$m} $y\n";
See how you go with that
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
