Автор: Natalie

Natalie — Mon, 15 Oct 2012 12:58:45 +0000

Нашла в интернете интересный пример очень простого представления итератора в Perl. Shift в качестве итератора:

my @array = (1, 2, 3, 4);
while (my $i = shift @array)
{
    print $i . "\n";
}

my @array = (1, 2, 3, 4);

while (my $i = shift @array)

{

print $i . "\n";

}

Комментарии: Шаблон проектирования Iterator