Perl 中是否可以使用单个文件句柄读取多个文件？

Question

我有一些这样的日志文件：

• /var/log/pureftpd.log
• /var/log/pureftpd.log-20100328
• /var/log/pureftpd.log-20100322

是否可以将它们全部加载到单个文件句柄中或我需要单独加载它们吗？

Answer 1

一种丑陋的黑客行为是这样的：

local @ARGV = qw(
    /var/log/pureftpd.log 
    /var/log/pureftpd.log-20100328 
    /var/log/pureftpd.log-20100322
);

while(<>) {
    # do something with $_;
}

Answer 2

您可以使用管道将这些文件虚拟地连接到一个文件中。

Answer 3

对每个文件使用不同的文件句柄做同样的事情并不难：

foreach my $file ( @ARGV )
    {
    open my($fh), '<', $file or do { warn '...'; next };
    while( <$fh> )
         {
         ...
         }
    }