perl: foreach() a dalsi polozka

[Honza Pazdziora]

On Tue, Aug 14, 2001 at 01:58:59PM +0200, Petr Divina wrote:
> 
> Posilam jeden napad....
> 
> #!/usr/local/bin/perl
> 
>    @file = ('prvni','druha','treti','ctvrta','pata','sesta');
> 
>    while ($tmp = shift @file) {

Jenom pozor na to, ze shiftem to pole @file menite. Coz samozrejme
muze a nemusi byt to, co chcete.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, DBD::XBase.
Returned from nearly off-line world -- sorry if this email reaches you late.