readdir sort und überhaupt Probleme (gelöst) - #156257 (Allgemeines zu Perl)

Alexander

2012-02-21 17:13

User since
2012-02-21
25 Artikel
BenutzerIn
[default_avatar]

Hi!

Ich bin ein absoluter Newbie wenn es um Perl Programmierung geht

-Ich will gerne ein Verzeichnis, welches ich per input angeben lasse, einlesen
-Es sollte eine Kontrolle geben wenn es das Verzeichnis nicht gibt
-Anschließend sollten die dort befindlichen Files eingelesen werden
-wieder ein Kontrolle falls es keine Files dort gibt
-die Files sollten nach dem letzten Benutzungsdatum sortiert und
-Name, Größe und letzten Benutzungsdatum auf dem Bildschirm ausgegeben werden
-Außerdem sollten Unterverzeichnisse erwähnt jedoch nicht ausgelesen werden

bis dato habe ich
-Verzeichnis einlesen
-Error bei fehlendem Verzeichnis
-Einlesen der Files
-Error mit if funktioniert nicht
tja und die restlichen Sachen habe ich auch nicht

ich bräuchte ein par Tips wie ich weiter machen soll und ob der code soweit okay ist.
bitte immer daran denken, dass ich ein absoluter Anfänger bin und mich erst seit einigen Wochen mich mit Perl beschäftige

Alexander

Code (perl): (dl )

#! c:/perl/bin/perl.exe -w
print "\nPlease put in the folder you want to search for files, like example underneath\n";
print "Example for windows 'c:/.../.../.../': ";
chomp(my $dirname = <STDIN>);
opendir (DIR, $dirname) or die "\nError $!\n";
@dir = readdir(DIR);                            
#if (@dir = 0) {        #if Funktion sollte einen Error anzeigen wenn Verzeichnis leer ist -    #funktioniert nicht
#       print "\nSorry no files in the folder!\n";
#       }
print join("\n", @dir);
closedir DIR;

modedit Editiert von pq: code-tags hinzugefügt und ein paar von den vielen tabs entfernt. bitte Formatierungshilfe lesen
Last edited: 2012-02-21 17:17:48 +0100 (CET)