Inhalt einer Datei auslesen

[schokoriese]

Hallo
wer kann mir helfen
Ich bin Anfänger und soll in Perl ein Skript schreiben,womit ich im vorhandenen Verzeichnis in den Datein Files suchen kann
Ich habe irgendwie keinen Plan wie ich da ran gehen sollhoffe mir kann jemand helfen
MFG
Danke

 

[GH@NDI]

Ist eigentlich ganz einfach:

my $dir = 'c:/winnt';

opendir(DIR, $dir) || die "Kann Verzeichnis $dir nicht öffnen!";
my @dir = grep(!/\.{1,2}/, readdir(DIR));
closedir(DIR);

foreach my $file (@dir) {
   print "$dir -> $file \n";
}

Dazu gibts ein gutes Tutorial, in der Perldoku, Perlopen

 

[schokoriese]

hey danke für den Tip,also so weit funktioniert dies jetzt!
was aber bewirkt:
(!/\.{1,2}/ (im Quellcode)?
jetzt habe ich aber noch das Problem,daß mein Verzeichnis mehrere Unterverzeichnisse hatt und ich dies dann für alle anwenden muß
Hast du da vielleicht auch noch nen Tip für mich