wie kann ich den verzeichnisinhalt auslesen zum bearbeiten?

[hwei]

hey

ich will die namen der bilder welche sich in diesem verzeichnis F:\\Hardy\\Bilder\\Buchstaben (gif) befinden auslesen und in die textdatei c schreiben um die dateinamen später bearbeiten zu können

die datei verzeichnisinhalt wird erstellt leider ohne inhalt! :-}

mein bisheriges skript:

#!/usr/bin/perl -w

use strict;

my $verzeichnis = "F:\\Hardy\\Bilder\\Buchstaben (gif)";
my $in = "";
my $bildnamen = "";


opendir(DIR, "$verzeichnis") or die "verzeichnis kann nicht gelesen werden!";


while (defined($in = readdir(DIR)))
{
print "$bildnamen";
};

closedir(DIR);



my $name ="verzeichnisinhalt.txt";


open(SCHREIBEN,">$name") or die "Fehler beim Erstellen der Datei: $name\n";

print "anlegen von verzeichnisinhalt war erfolgreich!";

close(SCHREIBEN);



open(DATEI, ">>$name");

print DATEI"$bildnamen\n";
print DATEI"hallo\n";


close(DATEI);

[hwei]

fertig

#!/usr/bin/perl -w

use strict;

my $verzeichnis = "F:\\Hardy\\Bilder\\Buchstaben (gif)";
my $dateinamen = "";
my $dateiname = "verzeichnisinhalt.txt";
my @dateinamen = ();


#verzeichnis öffnen
opendir(DIR, "$verzeichnis") or die "verzeichnis kann nicht gelesen werden!";

while(defined($dateinamen = readdir(DIR)))
{
print $dateinamen,"\n";
push @dateinamen, $dateinamen;
}


#datei erstellen und dateinamen aus verzeichnís hinzu schreiben
open(SCHREIBEN,">$dateiname") or die "Fehler beim Erstellen der Datei: $dateiname\n";

$,="\n";
print SCHREIBEN @dateinamen;

close(SCHREIBEN);


print "\nöffnen von $verzeichnis war erfolgreich\n";
print "anlegen von $dateiname war erfolgreich!\n";
print "schreiben war erfolgreich!";

closedir(DIR);



ES LEBT!!!!!!!!