Datei oder Verzeichnis nicht gefunden - #150115 (Allgemeines zu Perl)

havi

2011-07-04 11:43

User since
2003-08-04
2036 Artikel
BenutzerIn

Hallo,

ein paar Kleinigkeiten noch zu dem Code...

Das chomp kannst du direkt mit <STDIN> verwenden, ebenso kannst du auch die lc Abfrage gleich bei der Eingabe erledigen.

Code (perl): (dl )

1
2

chomp($ordner = <STDIN>);
chomp(my $entscheidung = lc(<STDIN>));

Die "Ordner" . und .. kannst du gleich beim readdir ausschließen:

Code (perl): (dl )

my @remove = grep { $_ !~ m/\.{1,2}/ } readdir($dfh);

Gruß,
Gernot

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/