Thread Find::File...Problem Unterordner (2 answers)
Opened by Florian at 2014-03-04 14:47

Gast Florian
 2014-03-04 14:47
#173817 #173817
Hey,

ich möchte gerne durch ein Ordner rekursiv durchgehen. Das funktioniert auch einwandfrei nur möchte ich wenn er eine bestimmte Datei gefunden hat, dass er nicht mehr in die Unterverzeichnisse geht, sondern ins übergeordnete Verzeichnis springt und den nächsten Ordner nach der Datei durchsucht.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
sub GetAllSummaries
{
my $FilePath = $File::Find::name;
$FilePath =~ tr/a-z/A-Z/; # transform complete path to uppercase
$FilePath =~ tr/\//\\/;
my $FileName = basename $FilePath;
if (($FileName =~ /SUMMARYALLCOMPACT.TXT/))
{
print $Filepath;
#Springe zum übergeordneten Ordner und suche weiter
}
}


Bin für jede Idee dankbar.
Last edited: 2014-03-04 15:03:11 +0100 (CET)

View full thread Find::File...Problem Unterordner