perl：不使用while（<>）即可读取文件和/或stdin

Question

对于希望避免使用while(<>)语法并手动管理文件输入的情况，如何处理从文件列表和/或STDIN中读取的操作？ 要读取文件，可以简单地遍历@ARGV ，依次打开每个元素（例如， my $file=shift @ARGV; open(my $fh,'<',$file); while(<$fh>) {...}; close($fh);要从标准输入中读取内容，可以简单地使用while(<STDIN>) { ...} 。但是，假设程序员希望通过STDIN提供类似类型的数据。和文件参数，每个while循环中的代码正文都必须重复。我尝试将STDIN分配给文件句柄（例如， my $fh = \\*STDIN或my $fh = *STDIN{IO} ，但均失败）本质上，我想遍历所有文件以及STDIN并相同地对待每个文件的输入，但不使用方便的while(<>)语法。画出解决这个问题的方法？谢谢。

Answer 1

打开两个参数（如<>使用），您可以执行

@ARGS = '-' if !@ARGV;

for my $qfn (@ARGV) {
    open($fh, $qfn);

    while (<$fh>) {
       ...
    }
}

哪个三个参数open ，我可能会做

@ARGV = \*STDIN if !@ARGV;

for my $qfn (@ARGV) {
    my $fh;
    if (ref($qfn)) {
       $fh = $qfn;
    } else {
       open($fh, '<', $qfn);
    }

    while (<$fh>) {
       ...
    }
}

Answer 2

另一种方法（如果可以使用CPAN模块）是使用IO :: All 。

将文件读入标量变量：

my $content1 < io('file1');

使用IO :: ALL的另一种方法：

my $content2 = io('file1')->slurp;

或者，如果您希望将其放在一个数组中，并以每行作为元素：

my @lines = io('file1')->slurp;