Можно ли читать несколько файлов с помощью одного дескриптора файла в Perl?

Question

У меня есть несколько таких файлов журналов:

• / вар / журнал / pureftpd.log
• / вар / Журнал / pureftpd.log-20100328
• / вар / Журнал / 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

Не очень сложно сделать одно и то же с другим файловым дескриптором для каждого файла:

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

Answer 3

Вы можете использовать каналы для виртуального объединения этих файлов в один.