如何在Perl脚本中重复使用提示代码 子提示{ my（$query）=@35;将提示字符串作为参数 本地$|=1；#激活自动刷新以立即显示提示 打印$query； chomp（我的$answer=）； 返回$answer； } 子提示{ 我的（$query）=@； my$answer=提示（$query（Y/N）：）； 返回信用证（$应答）等式“y”； } if（提示_yn（“是否要启动流程”））{ my$list1=提示（“输入ID:\n”）； my$list2=提示（“输入名称：\n”）； 打印$list1； 打印$list2； ##$list1和$list2将在此处的代码中使用。。 #... #..... }

我想一次又一次地重复

if

块的内容，如果我从

（y/N）

替换中按y键，则每次完成时都会再次提示

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..
  #...
  #.....
}

与

---

？

这意味着while循环继续到Yes。是的，它将重复循环，而答案是

y

我是perl新手，谢谢。

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

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