2

当我在玩一些我编码的东西时，我提出了一个一般性问题。我想知道除了 die() 之外，是否有任何方法可以根据用户反馈终止程序的特定部分（如果我在这里误用了术语，我深表歉意）；因为这结束了整个程序。

这是代码：

if ($choice eq 'y'){
print "\nHit diagnostics: \n";
{
my $hitList=@hitList;
for (my $i=0; $i<$hitList; $i++){
    print $hitList[$i]."\n";
    #segmented listout of misses with interrupt 
    if(($i%4) eq 0){
        print "CONTINUE or Q to end\n";
        my $next=<>;
        chomp($next);
        if(lc($next) eq 'q'){
            **die "Killing request...\n";**
            }
        }
    }
}

所以基本上我只是希望用户能够结束模数 if 循环，如果他们在某个时候决定他们实际上不想看到整个列表但仍然能够继续（之后还有一个错过提示） ) 与程序。

最好的方法是使用变量作为“开关”来确定命中列表是否应该继续？只是想知道是否有更可接受/更优雅的解决方案。

4

1 回答 1

3 
for my $i (0..$hitList-1) {
   ...
   if (...) {
       last;
   }
   ...
}

last

于 2012-07-25T17:42:46.237 回答