Perl: Next внутри функции

[nataraj]

Teodor_Sigaev@facebook рассказал забавное.

Вот эта штучка никогда не напечатает точки:

#!/usr/bin/perl
print "попробуем\n";

while (1)
{
  fun1();
  print ".";
}

sub fun1
{
  next;
}

Comments

[vitus_wagner]

Ларри такой Ларри. Вообще по-моему возможность писать свои управляющие структуры, это Святой Грааль всех авторов скриптовых языков. Ближе всех к этому подошел Оустерхут, но даже у него в Tcl этим почти не пользуются.

Возможность позвать next из функции - это явно заявка на возможность написания своих операторов выхода из цикла.

[alexkuklin.livejournal.com]

(много мата)

[maravan.livejournal.com]

привет теодору :)

[lodin]

Вообще-то ворнит за такое, и правильно делает, как по мне.