nepojmenovane promenne

[Honza Pazdziora]

On Tue, 15 Jan 2002 13:04:38 GMT, Petr Bartos <xbartos5 na fi.muni.cz> wrote:
> 
> <CODE>
> ($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime(time);
> </CODE>
> 
> pokud z tohoto prirazeni pouzivam pouze promenne $mday a $mon, mam 5
> dalsich prommennych, ktere v programu vubec nepouziju a vcelku zbytecne
> jsou prirazeny. Lze to napsat nejak lepe?

($mday, $mon) = (localtime(time))[3, 4];

(undef, undef, undef, $mday, $mon, undef, undef) = localtime(time);

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
Petition for a Software Patent Free Europe http://petition.eurolinux.org
------------------------------------------------------------------------