Übung 6

Themen: Filehandles, reguläre Ausdrücke

1. Schreiben Sie ein Program testRegExpr.pl, das von der Standardeingabe einen String einliest und diesen auf folgende Inhalte testet:

• Enthält mindestens ein a.
• Enthält eine Zahl, die mindestens aus zwei Ziffern besteht.
• Mindestens ein Whitespace.
• Enthält eine Zeichenfolge der Form BuchstabeZifferZifferZifferBuchstabe. Dabei ist ein Buchstabe ein Zeichen aus a-z oder A-Z.
• Enthält hallo falschgeschrieben (bezogen auf die Anzahl der l). D. h. es muss nach halo, halllo, hallllo, etc. gesucht werden.

Für jeden der obigen Tests soll eine Meldung ausgegeben werden, falls der Test erfolgreich war.

2. Schreiben Sie ein Programm chtable.pl, das alle HTML-Tags der Art <table umwandelt in <TABLE. Das Programm soll folgendes enthalten:

• Eine Funktion getFileContent, der ein Filename übergeben wird. Zurückgeliefert werden soll der Inhalt des Files als String. Falls die Rückgabe nicht funktioniert, soll eine Fehlermeldung ausgegeben werden und das Programm abgebrochen werden (Hilfe).
• Parameterübergabe des Dateinamen auf Betriebssystemebene. Der Aufruf auf der Betriebssystemebene soll lauten (Datei ist die zu ändernde Datei):
  perl chtable.pl Datei
• Eine Hilfe: Wird an das Programm statt dem Dateinamen ein -h übergeben, so soll eine Hilfe am Bildschirm ausgegeben werden. (Hilfe)

Um etwas global zu ändern, gibt man beim Substituteoperator nach dem letzten Slash / noch ein g für global an (Hilfe).
Ausprobiert werden kann das Programm an dieser Datei table1.htm.

3. Erstellen Sie ein Programm toTABLE.pl, das analog zur 2. Aufgabe arbeitet; nur sollen alle Tags wie <Table, <table, <tablE, etc umgewandelt werden in <TABLE.

Um etwas global zu ändern, gibt man beim Substituteoperator nach dem letzten Slash / noch ein g für global an. Möchte man zusätzlich nicht auf Groß- und Kleinschreibung des durchsuchten Strings achten. kann man eine weitere Option angeben: i (Hilfe).
Ausprobiert werden kann das Programm an dieser Datei table2.htm.

Die Ergebnisse schicken Sie bitte an Perl, Lehrstuhl Mathe II, Uni Bayreuth.

© 2001-2003 Perl, Lehrstuhl Mathe II, Uni Bayreuth