perl: foreach() a dalsi polozka

[Michal Ludvig]

On Tue, 14 Aug 2001, Honza Pazdziora wrote:

> 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.

Ze se to pole meni mi nevadi. Takhle nejak jsem si to predstavoval.
Diky moc a uzijte si vsichni hezky den.

Michal Ludvig