perl: foreach() a dalsi polozka

[Jiri Kratochvil]

A co takhle:

while (shift(@file))
{
if (nejakapodminka)
   {
   DelejNeco1($_);
   shift(@file);
   DelejNeco2($_);
   }
else
   {
   DelejNecoJineho($_);
   }
}



Michal Ludvig wrote:

> Zdravim vespolek,
> mam zhruba nasledujici konstrukci v perlu:
> (V @file je spousta radku textu.)
> 
>    foreach (@file)
>    {
>       if(nejakapodminka)
>       {
>          DelejNeco1($_);
> # >>>>>  Vezmi dalsi polozku
>          DelejNeco2($_);
>       }
>       else
>       {
>          DelejNecoJineho($_);
>       }
>    }
> 
> Takze pokud plati 'nejakapodminka' tak potrebuju na aktualni radek
> postvat funkci DelejNeco1() a na hned dalsi radek funkci DelejNeco2().
> Pokud podminka neplati (coz je vetsina pripadu), tak to s kazdym radke
> udela DelejNecoJineho().
> 
> Na miste oznacenem '>>>>>' potrebuju z @file dostat dalsi radek do $_
> (nebo do jine promenne). Uz nad tim badam celkem dlouho a neprisel jsem na
> to jak to udelat :-(((
> 
> Predem diky za radu
> Michal Ludvig
> 
>