ユーザー入力に基づくPerl終了ループ/コードブロック（！ダイ/出口）

Question

私がコード化したものと遊んでいる間に出てきた一般的な質問をしてください。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";**
            }
        }
    }
}

.

基本的に、私は彼らが実際にリスト全体を見たくないがまだ続行することができるように決定された場合にループの場合、ユーザーがモジュラスを終了させることができたばかりです（ミスプロンプトがあります）。その後もプログラムと同様に）

は、ヒットリストが続行されるかどうかを判断するために変数を「スイッチ」として使用するための最良の方法ですか？もっと受け入れられる/エレガントな解決策があるかどうか疑問に思う。

Answer 1

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

.

last