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

format_c

2004-06-18 01:28

User since
2003-08-04
1706 Artikel
HausmeisterIn

Also ich würde da für Array pledieren, weil man da mit evtl. Sortierungen flexibler ist.

Ich habe mal den Code etwas abgeändert so wie ich denke wie du es wahrscheinlich gemeint hast. Wenn nicht beschreib bitte nochmal genauer was das if ($ext) bedeutet.

Code: (dl )

use File::Find;
my @array = ();

find(\&archive,$directory);

sub archive {
    # Wenn Dateiname auf eine bestimmte Extension endet...
    if (/(?:\.php?|\.htm?|\.cgi|\.pl)$/) {
        push @array,$File::Find::name; #Hänge die Datei mit vollständigen Namen an das Array
    }# if
}# sub

Gruß Alex\n\n

Effizente Linuxshell