c: [EMAIL PROTECTED]
> Subject: Re: illegal octal digit '8'?
>
> Charlotte Hee wrote:
> >
> > In my perl script I use the unix command 'date' to make a time stamp
> > because eventually I want the date format to be DD-MON-, where DD is
> > the number
John W. Krahn wrote:
Wiggins D'Anconia wrote:
So a Perlish way to do this,
my (@months) =
('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec');
my ($mday, $mon, $year) = (localtime)[3,4,5];
my $date = sprintf('%02d-%3s-%04d', uc $mday, $months[$mon] , $year+1900);
Just another suggestion on how you might accomplish the same thing:
##
my @months = qw(XXX JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC);
return $months[$tmp]
##
-Original Message-
From: Charlotte Hee [mai
Wiggins D'Anconia wrote:
>
> So a Perlish way to do this,
>
> my (@months) =
> ('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec');
> my ($mday, $mon, $year) = (localtime)[3,4,5];
>
> my $date = sprintf('%02d-%3s-%04d', uc $mday, $months[$mon] , $year+1900);
Charlotte Hee wrote:
In my perl script I use the unix command 'date' to make a time stamp
because eventually I want the date format to be DD-MON-, where DD is
the number of the day (1-31), MON is the 3-char spelling of month (i.e.
JAN), and is the 4-digit year. In this perl script I'm just
On Fri, Apr 02, 2004 at 04:44:48PM -0800, Charlotte Hee wrote:
>
>
> In my perl script I use the unix command 'date' to make a time stamp
> because eventually I want the date format to be DD-MON-, where DD is
> the number of the day (1-31), MON is the 3-char spelling of month (i.e.
> JAN), an