如何在 Perl 中将外循环与内循环分开？

假设我有一段 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
}

If something()是的，我想打破（“最后”）所有循环。

我怎样才能做到这一点？ 我想到了两个选择，但我都不喜欢： 使用某物GOTO添加一个布尔变量来标记something()是 true，在每个循环恢复之前检查这个变量last()如果这是真的。

有什么建议或想法吗？

Thanks.

使用标签：

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