用于扫描脚本所在文件夹并搜索特定文件的脚本 [Perl]

Question

我正在创建一个在特定文件夹中打开的脚本，其中包含两种不同类型的文件。 “安全”（secure.text、secure.001.text 等）文件和“消息”（message.txt 等）文件。每个文件包含年、日、日期、小时和分钟的日志。我希望能够扫描这些文件并创建一个包含 2006 年 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);
}

未测试，但它应该做 +- 与您的脚本相同，更因为它递归搜索...