it was already in my original reply
==========
sub get_date {
my @months = qw(January Febuary March April May June July August
September October November December);
my ($day, $mon, $yr) = (localtime)[3,4,5];
return (sprintf("%02d", $day), $months[$mon], $yr + 1900);
}
my ($day, $month, $year) = get_date();
==========
the sprintf formats the date to add the 0 (in the return line).
not tested but this should work if you only want the day printed:
printf("%02d", (localtime)[3]);
HTH
Etienne
"Torres, Jose" wrote:
>
> In the code below, is there a Perl built-in function to pass $DAY into
> so that a "9" comes out "09"? I need digits from 1 to 9 to be of the form
> 01, 02, etc. Ideas? Thanks.
>
> -Jose
>
> -----Original Message-----
> From: Shinagare, Sandeep [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, December 05, 2001 11:27 AM
> To: '[EMAIL PROTECTED]'
> Subject: today's date....
>
> Hi Folks!
> Trying to get todays date and month... was able to find this...
>
> #snip-start
> use Time::localtime;
> $tm = localtime;
> ($DAY, $MONTH, $YEAR) = ($tm->mday, $tm->mon, $tm->year);
> #snip-end
>
> this gives me the Day and Month in numbers.. anyway in which i
> can get "Mon","Tue","Wed" and "Jan","Feb","Mar" etc.. other than
> coding the conversion?
>
> Thanks,
> Sandeep
>
> **********************************************************************
> COLT Telecommunications
> Registered in England No. 2452736
> Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ
> Tel. 020 7390 3900
>
> This message is subject to and does not create or vary any contractual
> relationship between COLT Telecommunications, its subsidiaries or
> affiliates ("COLT") and you. Internet communications are not secure
> and therefore COLT does not accept legal responsibility for the
> contents of this message. Any view or opinions expressed are those of
> the author. The message is intended for the addressee only and its
> contents and any attached files are strictly confidential. If you have
> received it in error, please telephone the number above. Thank you.
>
> ************************************************************************
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
Etienne Marcotte
Specifications Management - Quality Control
Imperial Tobacco Ltd. - Montreal (Qc) Canada
514.932.6161 x.4001
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
