如何重複使用提示代碼在Perl腳本

Question

sub prompt { 
    my ($query) = @_; # take a prompt string as argument 
    local $| = 1; # activate autoflush to immediately show the prompt 
    print $query; 
    chomp(my $answer = <STDIN>); 
    return $answer; 
} 


sub prompt_yn { 
    my ($query) = @_; 
    my $answer = prompt("$query (Y/N): "); 
    return lc($answer) eq 'y'; 
} 


if (prompt_yn("Do you want to start a process")){ 
    my $list1 = prompt("Enter ID:\n"); 
    my $list2 = prompt("Enter Name:\n"); 

    print $list1; 
    print $list2; 
    ## $list1 and $list2 will be used in the code here.. 
    #... 
    #..... 
} 

我要一遍又一遍重複if塊的內容，每個如果我按y的(Y/N)它完成時再次提示。

Answer 1

更換

if (prompt_yn("Do you want to start a process")){ 

與

while (prompt_yn("Do you want to start a process")){ 

？