У меня есть несколько файлов журналов, как эти:Можно ли читать несколько файлов с помощью одного дескриптора файла в Perl?
Можно ли загрузить их все в один дескриптор файла или мне нужно будет загружать каждый из них отдельно?
Вы можете использовать трубы, чтобы фактически конвертировать эти файлы в один.
Один некрасиво хак бы это:
local @ARGV = qw(
/var/log/pureftpd.log
/var/log/pureftpd.log-20100328
/var/log/pureftpd.log-20100322
);
while(<>) {
# do something with $_;
}
Используйте специальный дескриптор файла 'ARGV' для неявного открытия каждого файла в @ARGV. –
Это то, что я делаю. Я бы не назвал это «уродливым», но это тоже не красиво. –
Ну, причина в том, что он «уродливый», потому что он хрупкий: любая другая часть вашего кода (или чужого) может сломать этот код, перебирая '@ ARGV'. Для быстрого одноразового скрипта все в порядке. –
Это не очень трудно сделать то же самое с другим дескриптором для каждого файла:
foreach my $file (@ARGV)
{
open my($fh), '<', $file or do { warn '...'; next };
while(<$fh>)
{
...
}
}
Спасибо, это было ключевым словом я искал для. – rarbox