在Perl中,如何将多个日志文件视为一个虚拟文件?

如果你想确保一个特定的顺序,你可以自己排序,即使只是为了确保它会正确:

 my @files = sort { ... } glob( ... );

 my @files = sort glob( ... );

local @ARGV 所以我可以使用菱形运算符,这真的很神奇 ARGV @ARGV ,它将转到下一个。通过将 @阿格夫 程序内部:

 {
 local @ARGV = sort { ... } glob( ... );

 while( <> ) {
      ...;
      }
 }

如果您需要知道当前正在处理的文件,请查看 $ARGV .

如果你需要更新奇的东西,你可能不得不诉诸暴力。

my @files = glob("$dir/access.log.*");
open my $one_big_logfile, "-|", "cat @files" or die ...;
while (<$one_big_logfile>) {
   ...
}