CM Analyst schreef:
> my ($sec, $min, $hour,
> $mday, $mon, $year,
> $wday, $yday, $isdst) = localtime();
You don't have to allocate variables for the values that you don't need,
so in your case this might be sufficient:
my ($sec, $min, $hour) = localtime;
If you need $isdst but not the date ones, you can use:
my ($sec, $min, $hour,
undef, undef, undef,
undef, undef, $isdst) = localtime;
(pity, an (undef)x5 doesn't work)
Variant:
my ($sec, $min, $hour, $isdst) = (localtime)[0..2, 8];
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
