my $day = 3;
$day = sprintf("%02d", $day); it assings $day to 03 if $day is less than
10
printf does the same but prints it instead of assigning it to the
variable
http://www.perldoc.com/perl5.6.1/pod/func/sprintf.html
http://www.perldoc.com/perl5.6.1/pod/func/printf.html
Etienne
Tyler Longren wrote:
>
> I'm not sure if there's a function to do that. But you could check the
> length of $DAY...if it's less than 2 you could just add a 0 infront of it.
>
> Good luck,
> Tyler Longren
>
> ----- Original Message -----
> From: "Torres, Jose" <[EMAIL PROTECTED]>
> To: "'Shinagare, Sandeep'" <[EMAIL PROTECTED]>;
> <[EMAIL PROTECTED]>
> Sent: Wednesday, December 05, 2001 2:09 PM
> Subject: RE: today's date....
>
> > 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]
> >
>
> --
> 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]
