スクリプトが入っているフォルダをスキャンして特定のファイルを検索するスクリプト[Perl]

Question

2つの異なるタイプのファイルを含む特定のフォルダの中で開くスクリプトを作成しています。 'secure'（secure.text、secure.001.textなど）ファイル、 'message'（message.txtなど）ファイルが含まれます。各ファイルには、年、日、日、時、分のログが含まれています。私はこれらのファイルをスキャンし、2006年1月のすべてのログエントリを含む新しいファイルを作成できるようにしたいと思います。このスクリプトの目的は、すべてのデータではなく、1セットのデータのみをスキャンできることですメッセージ）。

現在の作業ディレクトリを見つけるスクリプトに問題があります。私の理解では、perlは現在のディレクトリとしてスクリプトの場所を使用します。私はopendirとclosedir関数を使用していて、スクリプトのディレクトリ内に60個のファイルがあることを確認していますが、テストするためにいくつかのファイルを削除すると、まだ60と表示され、カレントディレクトリ。正しい正規表現にもかかわらず、「安全」を見つけることができません。

私が得ている出力は「問題を見つけるファイル '安全」です。」

#!/usr/bin/perl 


use strict; 
use warnings; 



#Locate and scan all of the files 

#list all files in same dir as this perl script. 
my $dirname = "."; 
opendir(my $dh, $dirname) #sets $dh as the current working directory 
    or die "Can't open dir '$dirname':$!\n"; #Kills if can not open current directory. 
my @all_the_file; #Instantiates new variable that accounts for all of the files in the current dir. 
while(my $file = readdir($dh)) { #$file accounts for every file on device. 
    push(@all_the_file, $file); #Pushes files in current directory to $file. 

} 
closedir($dh); 

#Gets all of the secure files. 

my @all_the_secure_file; 
@all_the_secure_file = grep(/^secure(\.\d{1,2})?$/, @all_the_file); 

#Itterate over secure files. 

my $filename = "secure"; 
open(my $fhin, "<", $filename) 
    or die "Can't open '$filename':$!\n"; 
chomp(my @lines = <$fhin>) ; 
close($fhin); 

#Match the Regex of Jan. 

my @jan_lines = grep(/^Jan/ , @lines) ; 
print "The file '$filename' = " . @lines . " lines.\n"; 
print "Size of \@jan_lines = " . @jan_lines . "\n"; 

#Print and create new file with Data. 

my $filename2 = "secure.1"; 
open(my $fhin, "<", $filename) 
    or die "Can't open '$filename':$!\n"; 
chomp(my @lines2 = <$fhin>) ; 
close($fhin); 

my @jan_lines2 = grep(/^Jan/ , @lines2) ; 
print "The file '$filename2' = " . @lines2 . " lines.\n"; 
print "Size of \@jan_lines2 = " . @jan_lines2 . "\n"; 

exit; 

Answer 1

本当にモジュールを使用する必要があります。次の例では、Path::Tinyを使用しています。

use 5.014; 
use warnings; 
use Path::Tiny; 

my $root = path("/some/path"); 
my $iter = $root->iterator({recurse => 1}); 

while(my $path = $iter->()) { 
    next unless $path->basename =~ /(secure|message)\.(\d+)?\.txt/i; 

    my $type = $1; 
    #my $num = $2; #??? 

    my @lines = grep { /^Jan/ } $path->lines(); 
    say "in the $path is ", scalar @lines, " lines for Jan"; 

    my $new = path(($type =~ /secure/i) ? "/some/where/secure.txt" : "/some/nosecure/message.txt"); 
    $new->spew(@lines); 
} 

テストし、それは+やるべきではない - あなたのスクリプトと同じように、それはrecurseively検索一層ので...