perl: foreach() a dalsi polozka

[Míla Kuchta]

Zdravim,

Michal Ludvig <mic na logix.cz> wrote:
> mam zhruba nasledujici konstrukci v perlu:
> (V @file je spousta radku textu.)
> 
>   foreach (@file)
>   {
>      if(nejakapodminka)
>      {
>         DelejNeco1($_);
> # >>>>>  Vezmi dalsi polozku
>         DelejNeco2($_);
>      }
>      else
>      {
>         DelejNecoJineho($_);
>      }
>   }
> 

Rekl bych, ze resenim je zlepsit algoritmus, nebo pouzit for (i kdyz je
v perlu jen synonemem pro foreach).

S pozdravem

Mila Kuchta