Rekursive Suche (Allgemeines zu Perl)

[thread]18020[/thread]

Rekursive Suche

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
Gast Perl_Flo

2013-01-02 13:10

Hi,

ich implementiere gerade ein Perl-Skript, welches in meiner Ordnerstruktur nach Dateien, die einen bestimmenten String im Namen enthalten sucht. Ich möchte die ganze Suche gerne rekursiv laufen lassen, was mit grep leider nicht funktioniert. Bei der Verwendung von find dauert das ganze irgendwie etwas lange (Ordner mit 4 Unterverzeichnissen). Sucht Find auch in den Dateien? Ich komme einfach nicht weiter.

LG
Last edited: 2013-01-02 13:13:58 +0100 (CET)
- +4 replies
- pq
  
  2013-01-02 13:16
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  die angaben sind etwas vage. find sucht von such aus nicht in datei-inhalten, wenn du mit -name suchst. ich wüsste jetzt nicht mal, ob das überhaupt geht.
  
  verwendest du denn das modul File::Find?
  wie sieht der code aus?
  
  ohne code kann man schlecht mehr sagen, das siehst du sicher auch ein.
  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
  - +3 replies
  - Gast Perl_Flo
    
    2013-01-02 13:27
    Also mein aktueller Code mit grep sieht folgendermaßen aus:
    
    Code: (dl )
    
    1 2 3 4 5
    
    my $start_dir="Z:/test"; opendir (FOLDER, $start_dir); my @files = readdir FOLDER; close FOLDER; @dir_entries = grep{ $_=~ m/$string/i;} @files;
    
    Lieder sucht dieser nicht rekursiv und die Option -r funktioniert unter Perl nicht.
    Ja ich benutze diese Modul Find, leider habe ich den Code zu dieser version gelöscht.
    Last edited: 2013-01-02 13:35:56 +0100 (CET)
    - pq
      
      2013-01-02 13:43
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Guest Perl_Flo
      Ja ich benutze diese Modul Find, leider habe ich den Code zu dieser version gelöscht.
      
      das modul heisst File::Find, nicht Find.
      so kompliziert kann der code doch nicht sein, denn du da hattest?
      
      ganz kurz:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      use File::Find; my @files; find(\&wanted, '/path'); sub wanted { if (m/$string/) { push @files, $File::Find::name; } }
      
      in @files stehen dann die gefundenen dateien mit /path am anfang.
      
      ich empfehle übrigens, mal ein modernes tutorial zu lesen: http://perl-tutorial.org/
      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
    - Gast linuxer_offline
      
      2013-01-03 07:42
      
      Hi,
      Du scheinst da ein paar Dinge durcheinander zu bringen.
      Das grep der Shell und das grep von Perl sind zwei verschiedene Dinge, die verschieden arbeiten.
      
      Code: (dl )
      
      1 2 3 4
      
      # suche auf Shell-Ebene in $DIR rekursiv nach Dateien, die "foo" im Namen haben find $DIR -name "*foo*" # oder wenn groß/klein egal ist find $DIR -iname "*foo*"
      
      Last edited: 2013-01-03 08:08:24 +0100 (CET)
- GwenDragon
  
  2013-01-02 13:43
  
  User since
  2005-01-17
  14754 Artikel
  Admin1
  
  Schau dir mal App::Ack an, da gibt es ack, das sucht ganz nett ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-01-02 13:10.