Find::File...Problem Unterordner (Allgemeines zu Perl)

[thread]18941[/thread]

Find::File...Problem Unterordner

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+3 replies
guest Florian

2014-03-04 14:47
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)
- pq
  
  2014-03-04 15:38
  
  User since
  2003-08-04
  12204 articles
  Admin1
  
  das kannst du mit $File::Find::prune = 1 erreichen, wenn ichs richtig verstehe.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- GUIfreund
  
  2014-03-04 18:56
  User since
  2011-08-08
  559 articles
  BenutzerIn
  Guest Florian
  
  Code: (dl )
  
  $FilePath =~ tr/\//\\/;
  
  Bei Perl brauchst du dich nicht darum zu kümmern, wie der Zeilentrenner bei deinem BS aussieht. Wenn du den Backslash in der Ausgabe haben willst, verschiebe diese Zeile in den if-Block.
  Gruß
  GUIfreund

View all threads created 2014-03-04 14:47.