perl的讀取多個文件

Question

在Perl，

如何讀取多個文件一次，在月底

上午genrating報告，

每天一個日誌文件將創建，

我想讀整月的文件，

我的財產以後的文件這樣t.log.mmddyyy

Answer 1

glob函數將允許您檢索符合特定模式的文件名列表。

use strict; 
use warnings; 
use Getopt::Long; 

sub usage ($) { 
    my $msg = shift; 
    die <<"END_MSG"; 
*** $msg 
Usage: $0 --month=nn --year=nn PATH 

END_MSG 
} 

GetOptions('month=i' => \my $month, 'year=i' => \my $year); 

usage "Month not specified!" unless $month; 
usage "Year not specified!" unless $year; 
usage "Invalid month specified: $month" unless $month > 0 and $month < 13; 
usage "Invalid year specified: $year" unless $year > 0; 

my $directory_path = shift; 
die "'$directory_path' does not exist!" unless -d $directory_path; 

@ARGV = sort glob(sprintf("$directory_path/t.log.%02d??%02d", $month, $year)); 
while (<>) { # process all files 
    ... 
} 

Answer 2

你可以做一個

• READDIR獲得目錄
• 分析每個文件名以使文件列表確保它的每個文件相匹配的格式
• 打開並閱讀