Ausgabe in Array oder String - #83565 (Allgemeines zu Perl)

format_c

2004-06-18 01:53

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ok wie sieht es denn mit dem Ansatz aus?
Hab mal File::Find weggelassen weil es sich für diesen Gebrauch nicht soo gut eignet. Aber wir müssen uns schon an die Globbing-Regeln halten. * bedeutet beliebiger Dateiname. Darunter Fallen Datein, meist mit Punkt Extension getrennt, Verzeichnisse, auch . und ..

Besser für Dateien mit beliebigen Endungen eigent sich immer noch *.* besser. Was die Globbing Wildcards für Effekt haben kannst du auch in der z.B. Windows Suche ausprobieren.

Code: (dl )

use strict;
my @array = ();
my $ext = '*.*';
my @verz = ('/verzeichnis');
    
for my $file (@verz) {
    next unless -d $file;
    chdir $file or warn "Could not change into directory $file: $!";
    for (glob($ext)) {
        push @array,$file . '/' . $_;
    }
    opendir DIR,$file or warn "Konnte Verzeichnis $file nicht öffnen: $!";
    push @verz,map { $file . '/' . $_ } grep !/^\.\.?$/, readdir DIR;
    closedir DIR;
}

print join '|',@array;

Gruß Alex\n\n

Effizente Linuxshell