Perl. Mistrzostwo w programowaniu

Na poziomie użytkownika

W dawnych czasach, kiedy pisałem dużo kodu HTML, lubiłem tworzyć tabele z przeplatającymi się kolorami wierszy. Było to nietrudne, ale uciążliwe. Musiałem gdzieś przechowywać listę kolorów, a następnie wybierać następny kolor z listy podczas tworzenia każdego wiersza:

@colors = qw( AAAAAA CCCCCC EEEEEE );

my $row = 0;
foreach my $item ( @items )
    {
    my $color = $colors[ $row++ % ($#colors + 1) ];

    print qq|<tr><td bgcolor="$color">$item</td></tr>|;
    }

Te dodatkowe wiersze kodu są naprawdę irytujące. Szczególnie nie podoba mi się deklarowanie zmiennej $row poza pętlą foreach. Nie jest to żaden problem, ale budzi we mnie zastrzeżenia natury estetycznej. Dlaczego muszę zajmować się mechaniką wybierania koloru, kiedy moja pętla ...