Dateiliste auslesen

[Rolf Rost]

Mahlzeit;-)

Hallo ist irgendein Perl Spezialist da draussen, der mir weitherhelfen kann?

Na bei dem Sauwetter sitze ich eher drinnen...

Folgende zwei Code-Ausschnitte illustrieren mein Problem:

eben das Problem verstehe ich nicht ganz. Gehe da mal schrittweise vor, ersteinmal die Dateiliste erstellen, Verzeichnis auslesen, hier eine kleine Hilfestellung:

http://perlbase.xwolf.de/cgi-bin/perlbase.cgi?xbrowse=1

hmm, das kürzen wir mal ein bischen ab
opendir DIR, $dir or die $!;
my @files = grep{-f "$dir/$_"}readdir DIR; # siehe weiter unten...
closedir DIR;

zur Kontrolle die Liste mal ausgeben:
print join "\n", @files;

in grep {} kannst du also die Filter einbauen, die für deine Dateiliste interessant sind.
-f ist der Filetestoperator (sieh auch perlbase)

grep { not /^./ }readdir... zeigt alles außer die dirs . und ..

anstelle readdir geht natürlich auch globbing
my @files = <*.txt>;
aber Vorsicht, besser ists einen handler aufzumachen und readdir zu verwenden - da bist du sicher, dass du auch im richtigen Verzeichnis bist.

Tipp: Auch unter windows verwende den slash
my $dir = 'c:/tmp/'; # geht

Mahlzeit!
-- Rolf