Vyreseno: Re: perl: foreach() a dalsi polozka

[Michal Ludvig]

Petr Baudis wrote:

> ci pokud to chcete univerzalnejsi, efektnivnejsi, hnusnejsi a vice 
> 31337:
> 
>   $action = "DelejNecoJineho($ln);";
>   foreach $ln (@file) {
>     if (podminka) {
>       DelejNeco($ln);
>       $action = "DelejNeco2($ln);";
>     } else {
>       eval($action);
>       $action = "DelejNecoJineho($ln);";
>     }
>   }

Diky, za zajimavy napad, ale v konferenci o perlu uz jsem se dozvedel 
mene 31337, nicmene prehlednejsi a vyhovujici reseni:

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

Sice se @file meni, ale to mi v danem kontextu vubec nevadi.

Diky za vsechny napady.

Michal Ludvig