Re: [FWP] Real World Perl

["Derek J. Balling" <dredd@megacity.org>]

At 9:57 PM -0800 3/21/01, Vicki Brown wrote:
>sub GetToday2 {
>     my (undef,undef,undef,$mday,$mon,$year) = localtime(time);
>
>     sprintf("%4d%02d%02d", $year + 1900, $mon+1, $mday);
>
>}

why not do:

my ($mday,$mon,$year) = (localtime(time))[3..5];

?

-- 
+---------------------+-----------------------------------------+
| dredd@megacity.org  | "Conan! What is best in life?"          |
|  Derek J. Balling   | "To crush your enemies, see them        |
|                     |    driven before you, and to hear the   |
|                     |    lamentation of their women!"         |
+---------------------+-----------------------------------------+

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe