Perl: Next внутри функции
Sep. 25th, 2015 06:47 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
natarajTeodor_Sigaev@facebook рассказал забавное.
Вот эта штучка никогда не напечатает точки:
Вот эта штучка никогда не напечатает точки:
#!/usr/bin/perl
print "попробуем\n";
while (1)
{
fun1();
print ".";
}
sub fun1
{
next;
}