强制 Bash 脚本等待等待输入的 Perl 脚本

Question

我有一个 Bash 脚本，它顺序运行一些从文件中读取的 Perl 脚本。这些脚本需要按 Enter 才能继续。

奇怪的是，当我运行脚本时，它从不等待输入，而是继续。我假设 Bash-Script 中的某些内容被解释为 Enter 或其他一些按键，并使 Perl 继续运行。

我确定有解决方案，但我真的不知道要寻找什么。

我的 Bash 有这个循环遍历 Perl 脚本列表（在 seqfile 中列出）

while read zeile; do
    if [[ ${datei:0:1} -ne 'p' ]]; then
        datei=${zeile:8}
    else
        datei=$zeile
    fi
    case ${zeile: -3} in
    ".pl")
    perl  $datei  #Here it just goes on...
    #echo "Test 1"
    #echo "Test 2"
    ;;
    ".pm")
        echo $datei "is a Perl Module" 
    ;;
    *)
        echo "Something elso"
    ;;
    esac
done <<< $seqfile;

您注意到带有echo "Test 1/2" 的两条注释行。我想知道它们是如何显示的。 实际上它们是写在彼此下面的，就像有一个 Enter-Press：

Test 1
Test 2

Perl 脚本的输出是正确的，我只需要弄清楚如何强制从用户而不是脚本读取输入。

Answer 1

让 perl 脚本重定向来自 /dev/tty 的输入。

概念证明：

while read line ; do
    export line
    perl -e 'print "Enter $ENV{line}: ";$y=<STDIN>;print "$ENV{line} is $y\n"' </dev/tty
done <<EOF
foo
bar
EOF

程序输出（用户输入粗体）：

Enter foo: 123 foo is 123
Enter bar: 456 bar is 456

Answer 2

@mob 的回答很有趣，但我想为您的用例提出一个替代解决方案，如果您的整个 bash 脚本以特定的输入重定向运行（即不是 @ 987654323@).

最小的工作示例：

• script.perl

  #!/usr/bin/env perl
  use strict;
  use warnings;
  {
      local( $| ) = ( 1 );
      print "Press ENTER to continue: ";
      my $resp = <STDIN>;
  }
  print "OK\n";
  

• 脚本.bash

  #!/bin/bash
  
  exec 3>&0 # backup STDIN to fd 3
  
  while read line; do
      echo "$line"
      perl "script.perl" <&3 # redirect fd 3 to perl's input
  done <<EOF
  First
  Second
  EOF
  
  exec 3>&- # close fd 3
  

所以这将适用于：./script.bash 在终端和yes | ./script.bash 例如...

有关重定向的更多信息，请参阅例如this article 或 this cheat sheet。

希望对你有帮助