Skript, um den Ordner zu scannen, in dem sich das Skript befindet, und nach bestimmten Dateien zu suchen [Perl]

Question

Ich erstelle ein Skript, das ich in einem bestimmten Ordner öffne, der zwei verschiedene Dateitypen enthält. 'Sichere' (secure.text, secure.001.text usw.) Dateien und 'message' (message.txt, etc) Dateien. Jede Datei enthält ein Protokoll für Jahr, Tag, Datum, Stunde und Minute. Ich möchte in der Lage sein, diese Dateien zu scannen und eine neue Datei zu erstellen, die alle Protokolleinträge für Januar 2006 enthält. Der Zweck dieses Skripts ist es, nur einen Satz von Daten (sicher) und nicht alles (nur) zu scannen (Mitteilungen).

Ich habe Probleme mit meinem Skript finden das aktuelle Arbeitsverzeichnis. Zu meinem Verständnis verwendet Perl den Ort des Skripts als aktuelles Verzeichnis. Ich benutze die opendir und closedir Funktionen, und werde aufgefordert, dass es 60 Dateien innerhalb des Verzeichnisses des Skripts gibt, aber wenn ich einige Dateien lösche, nur um es zu testen, sagt es immer noch 60, was mich zu der Annahme verleitet, dass dies nicht die Aktuelles Verzeichnis. Es findet auch nicht "sicher", trotz der richtigen Regex.

Die Ausgabe, die ich erhalte, ist "Problem, Datei 'sicher' zu finden."

#!/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

Sie sollten wirklich ein Modul verwenden. Im folgenden Beispiel wird Path::Tiny verwendet.

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); 
} 

Nicht getestet, aber es sollte + tun - das gleiche wie Ihr Skript, noch mehr, weil es recurseively Aufsuchen ...