在perl中打破do while循环

概述我在perl中有一个while循环,如果在中间我需要爆发.我看到最后的标签;是我如何摆脱循环,但我无法弄清楚在哪里添加标签.这是我的示例代码. my $count = 5;do { print $count; if ( $count == 2 ) { last TAG; } $count--;} while ( $count > 0 );TAG: print 我在perl中有一个while循环,如果在中间我需要爆发.我看到最后的标签;是我如何摆脱循环,但我无法弄清楚在哪里添加标签.这是我的示例代码.

my $count = 5;do {    print $count;    if ( $count == 2 ) { last TAG; }    $count--;} while ( $count > 0 );TAG: print "out";

以上失败,找不到标签.我究竟做错了什么？谢谢你的期待.

解决方法 不要使用 @L_419_0@的 statement modifier表格：

07001 BLOCK does not count as a loop,so the loop control statements 07003,07004,or 07005 cannot be used to leave or restart the block. See 07006 for alternative strategIEs.

相反,我建议使用while循环.

my $count = 5;while ( $count > 0 ) {    print $count;    last if $count == 2;    $count--;}print "out";

输出：

5432out

如果你需要一个在测试条件之前总是运行一次的构造,那么使用这个形式的while循环：

while (1) {    ...    last if COND;}

总结

以上是内存溢出为你收集整理的在perl中打破do while循环全部内容，希望文章能够帮你解决在perl中打破do while循环所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。