loops - 如何从 Perl 中的内部循环中断外部循环？

Question

假设我有一段 Perl 代码，如:

foreach my $x (@x) {
 foreach my $y (@z) {
  foreach my $z (@z) {
   if (something()) {
    # I want to break free!
   }
   # do stuff 
  }
  # do stuff
 }
 # do stuff
}

如 something()是的，我想打破 ('last') 所有的循环。

我怎样才能做到这一点？
我想到了两个选项，我都不喜欢这两个选项:
使用东西 GOTO添加一个 bool 变量来标记 something()为真，在每个循环恢复之前检查这个 var 并且 last()如果这是真的。

有什么建议或想法吗？

谢谢。

Answer 1

使用标签:

OUTER:
foreach my $x (@x) {
 foreach my $y (@z) {
  foreach my $z (@z) {
   if (something()) {
    last OUTER;
   }
   # do stuff 
  }
  # do stuff
 }
 # do stuff
}