linux - 我的 Perl 程序如何在 Linux 上获得标准输入？

Question

我是 Perl 编程的新手，但我对 Linux 有相当多的经验。假设我有以下代码:

while(1) {
    my $text = <STDIN>;
    my $text1 = <STDIN>;
    my $text2 = <STDIN>;
}

现在，主要问题是:Perl 中的 STDIN 是直接从 Linux 机器上的 /dev/stdin 读取，还是我必须通过管道将 /dev/stdin 读取到Perl 脚本？

Answer 1

如果您不向脚本提供任何内容，它会坐在那里等待您输入内容。当你这样做时，它会被放入 $text 然后脚本会继续等待你输入一些东西。当您这样做时，它将进入 $text1。随后，脚本将再次等待您输入内容。完成后，输入将进入 $text2。然后，整个事情将无限期地重复。

如果您调用脚本作为

$ script < input

其中 input 是一个文件，脚本将从文件中读取类似于上面的行，然后，当流用完时，将开始为每个变量分配 undef无限期。

AFAIK，从预定义的 STDIN(或 stdin)文件句柄读取时，没有任何编程语言要求您调用您的程序:

$ script < /dev/stdin