Übung 8Perl

SeitenanfangSeitenendeThemen: Directoryhandle, Rekusion, reguläre Ausdrücke

1. Erstelle ein Programm getPoints.pl, das aus dem File points.txt die wichtigen Informationen ausliest. Das sind Emailadresse, Name und Matrikelnummer, die einzelnen Summen. Dies Informationen sollen auf den Standardbildschirm gegeben werden. Ferner soll die Gesamtpunktzahl angegeben werden. Der Programmaufruf soll lauten:

perl getPoints.pl DATEI

2. Schreibe ein Programm getFiles.pl, dem ein Verzeichnisname übergeben wird. Das Programm soll alle Dateien und Unterverzeichnisnamen im übergebenen Verzeichnis ausgeben (Hilfe, Dateitests). Soll das Programm auch die Unterverzeichnisse durchlaufen, so soll die Option -r für rekursiv mit übergeben werden. Wird die Option -h angegeben, so soll eine kleine Hilfe ausgegeben werden (Hilfe).

perl getFiles.pl [OPTIONEN] VERZEICHNIS

3. Verändere obiges Programm so, dass man auch angeben kann: -d für 'nur die Dateinamen ausgeben' oder -f für 'nur die Verzeichnisnamen ausgeben' und -i für 'weitere Informationen über die gefundenen Dateien bzw. Unterverzeichnisse'. Mehrere Optionen müssen folgendermaßen angegeben werden: -rf.... Ein Aufruf des Programms könnte dann heißen: (Hilfe)

perl getFiles.pl -rdi C:/WINNT

Einige weitere Informationen erhält man durch Dateitests (Dateitests):

Operator Bemerkung
-s Größe der Datei; bei einem Verzeichnis (unter DOS/WINDOWS) liefert dies den Wert 0 (unter UNIX: mehr).
-T enthält Text
-B enthält Binärdaten
-M Zeit der letzten Änderung in Tagen (z. B. 43.9091898148148, Hilfe)

Die Ergebnisse schicken Sie bitte an Email an den AutorPerl, Lehrstuhl Mathe II, Uni Bayreuth.


Seitenanfang FehlermeldungHilfe zur Fehlermeldung © 2001-2003 Email an den AutorPerl, Lehrstuhl Mathe II, Uni Bayreuth