Немного Perl a

← →
Uncle Archi © (2004-08-23 01:38) [0]

Я тут вижу PHP некоторые знают, может и с этим поможете ?
Вот кусок кода

while (1==1)
{
.........
do
{
$s=<IN> || last;#!!!!!!!!!!!!!
$s1=substr($s,0,5);
} until ($s1 eq "&name");
..................
}
Как заставить тот самый last выходить из его цикла, а не из while ?

← →
TUser © (2004-08-23 04:41) [1]

А do в перле это вовсе и не цикл. Это просто терма с модификатором until. Следовательно - никак. Можно переработать логику программы, и убрать этот last.

Это окончательно ?

Немного Perl a Найти похожие ветки