Dateien rekursiv suchen (Allgemeines zu Perl)

[thread]17938[/thread]

Dateien rekursiv suchen

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+5 replies
Muffi

2012-11-28 13:38
User since
2012-07-18
1465 Artikel
BenutzerIn
Hallo, wie ist denn der kleinste Umbau von
Code (perl): (dl )

my @files = glob($path.'/*.zip');
der rekursiv sucht?

Momentan hab ich
Code (perl): (dl )

1 2 3

use File::Find; my @files; find(sub { push @files, $File::Find::name if $File::Find::name =~ /\.zip$/ }, $path);
Gibts noch was einfacheres?
1 + 1 = 10
- +2 replies
- Linuxer
  
  2012-11-28 13:57
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Alternativ könntest Du File::Find::Rule verwenden.
  Auf den Beispielen der perldoc aufbauend:
  
  Code (perl): (dl )
  
  1 2 3
  
  use File::Find::Rule; my @dirs = ( '.' ); my @files = File::Find::Rule->file()->name('*.zip')->in(@dirs);
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Muffi
    
    2012-11-28 14:04
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Ui, sieht garnicht schlecht aus. Ich habs mir garnicht angeschaut, weil ich mir dachte je länger der Modulpfad desto länglicher wahrscheinlich die Ansteuerung.
    1 + 1 = 10
- hlubenow
  
  2012-11-28 17:47
  
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  
  Bei mir sieht das meist ganz ähnlich aus wie in Deinem Ausgangsbeispiel. Wer schonmal mit File::Find zu tun hatte, wird diese Syntax schon lesen können.
- GwenDragon
  
  2012-11-28 17:58
  User since
  2005-01-17
  14785 Artikel
  Admin1
  Geht auch kürzer, weil es reicht $_ zu prüfen.
  
  Code (perl): (dl )
  
  find(sub { push @files, $File::Find::name if /\.zip$/ }, $path);
  
  oder
  
  Code (perl): (dl )
  
  find(sub { /\.zip$/ && push @files, $File::Find::name }, $path);
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-11-28 13:38.