下面的超级短程序出错，为什么？

gznaxi

do{

      $i++;
      if ($i==5) {next;}else { print $i;}

}
while ($i<=10);

gznaxi

while ($i<=10){

      $i++;
      if ($i==5) {next;}else { print $i;}

}

roby

eval{}
sub{}
do[}
不是循环块
所以不能用循环控制

但是你可以加对{}进去
比如这样
do{

$i++;
if ($i==5) {{next;}}else { print $i;}

}
while ($i<=10);

你可以看看骆驼书的 p148

gznaxi

其他语言不存在这个问题。