Perl

Allgemeines

1. Einführung
2. Eingabe
3. Mathematik

String

1. String teilen
2. String umwandeln

Programmsteuerung

1. Bedingung
2. Schleife
3. Schleife steuern

Array

1. Array
2. Variable in Array
3. Array-Elemente
4. Array-Elemente zufällig

Funktionen

1. Funktionen deklarieren
2. Externer Perl-Code

Expressions

1. Reguläre Ausdrücke
2. Matching
3. Substitution

Hash

Ausgabe formatieren

externe Zugriffe

1. Verzeichnis
2. Ordner
3. Dateien

cgi Script

1. cgi Htmlantwort
2. cgi Html mit Variablen
3. cgi Html ENV
4. cgi Formular
5. cgi Antwort in Dateien
   

Referenzen

1. Referenzieren
2. Referenz Beispiele

Objekt

GUI mit TK/Tcl

1. Grafische Oberfläche(tk)
2. Grafische Elemente (tk)
3. Optionen (tk)
4. Zusammenbau (tk)
5. TK Beispiele
6. TK Textein, -ausgabe

Datenbank

Seminare für Betriebsysteme:

Seminare für Microsoft Office:

Seminare für Software von Adobe:

Spezielle Seminarpakete:

Ihre Meinung ist mir wichtig!

Reguläre Ausdrücke

Perl besitzt eine sehr mächtige Text-Such- und Ersetzen-Funktion. Eine dieser Funktionen ist das Matching, auf Deutsch die Suche innerhalb eines Strings, die andere die Substitution. Letztere ersetzt das gesuchte Muster durch die entprechenden Vorgaben. Die Muster werden zwischen zwei Zeichen definiert.

=~ definiert Bearbeitung laut Muster, != das gegenteilige Muster

Meist sind es die Schrägstriche: /Muster/,
Es funktioniert aber auch mit anderen Zeichen; z.B.: ##,(),{}...... Diese werden meist zwecks Lesbarkeit des Codes verwendet.

Achtung: Das Muster wird zwischen den Zeichen gesucht.

11.1. Einige Optionen für die Art der Mustererkennung:

Diese werden in Perl nach dem letzten Schrägstrich bekanntgegeben; z.B.: m/Muster/i

• ohne: den am weitesten links beginnenden Treffer aufzählen
• i: ignore casesensitive = Groß/Kleinschreibung ignorieren, Achtung verlangsamt die Erkennung!!
• g: greedy = gieriges suchen, den längsten, am weitesten links beginnenden Treffer aufzählen
• s: . = \n
• m: ^=Anfang und $=Ende gelten für einen Satz, der mit \n endet
• o: ein Muster kompilieren
• e: evaluierender Code bei Substitution
  

11.2. Welche Zeichen sollen gesucht werden?

• Ist "a" in einer Zeichenpositon im String enthalten /a/
• Ist "a" oder "b" oder "c" oder "d" in einer Zeichenpositon im String enthalten: /a|b|c|d/ oder kürzer /[abcd]/ oder noch kürzer /[a-d]/
• Alle Zeichen außer das genannte Zeichen "a": [^a] Karatezeichen innerhalb eckiger Klammern
• Ist irgendein Zeichen in einer Zeichenpositon im String enthalten /. /
• Diese Zeichenposition beginnt im Zwischenraum vor den Zeichen (?=..........) und sucht nachfolgend, Gegenteil: (?!............)

Der Backslash \ wandelt Nichtliterale in Literale um; z.B. \" wenn das Zeichen "

11.3. An welcher Stelle (Anfang - Ende) soll das Zeichen gesucht werden?

• Ist "Anf" der Anfang eines Strings: /^Anf/ Karatezeichen am Anfang des Musters
• Ist "nde." das Ende eines Strings: /nde.$/
• ist "Rol" der Anfang eines Wortes: /\bRol/ oder \A
• Ist "and" das Ende eines Wortes: /and\b/
• \B innerhalb des Wortes

11.4. Welche Zeichengruppe soll in einer Zeichenposition gesucht werden?

• Alle Zahlen in einer Zeichenpositon: [0-9] oder \d Gegenteil: \D
• Alle alphanummerischen Zeichen in einer Zeichenpositon: [a-zA-Z0-9_] oder \w Gegenteil: \W
• Alle Whitespace-Zeichen, als Leerzeichen dargestellt, in einer Zeichenpositon (Leerzeichen,Tabulatorzeichen..): \s Gegenteil: \S

Alternative Ausdrücke können auch in Klammern zusammengefasst werden. /(azDe|A)/ In diesem Fall können eine oder mehrere Zeichenpositionen alternieren!!

11.5. Für jedes gesuchte Zeichen kann man außerdem noch nachfragen, an wievielen Zeichenpositionen hintereinander bzw. wie oft es denn anschließend vorkommt:

Zum Beispiel kann ein Wort durch ein _ oder mehrere _ getrennt sein. (Ein_Wort,Ein_ _Wort, Ein_ _ _ _ _ _ _ _ _ _Wort).
Dafür gibt es folgende Abfragemöglichkeiten:

• + Zeichnen ist ein oder mehrmals hintereinander im String enthalten
• * Zeichnen ist null oder mehrmals hintereinander im String enthalten
• *? Zeichnen ist null oder mehrmals hintereinander im String enthalten
• ? Zeichnen ist kein oder einmal im String enthalten
• {n} Zeichnen ist genau n-mal hintereinander im String enthalten
• {n,m} Zeichnen ist mindestens n, höchstens m-mal hintereinander im String enthalten
• {n,} Zeichnen ist mindestens n-mal hintereinander im String enthalten

Normalerweise liefert Perl als Rückgabe den linken längsten String z.B.:*
z.B.: abrakadabra a bis b: abrakadab. Folgt daran anschließend ein ? z.B. *?, ist dasErgebnis die Rückgabe des linken kürzesten String z.B.: abrakadabra a bis b: ab

11.6. Der gesuchte String kann in Perl pro Suchdurchlauf in einer Variablen abgelegt werden.

Beispiel_11.1:$1

$t = "12 34 56 78";
$t =~ m/(\d+)/g;
print "1:".$1."\n";
$t =~ m/(\d+)/g;
print "2:".$1."\n";
$t =~ m/(\d+)/g;
print "3:".$1."\n";;
$t =~ m/(\d+)/g;
print "4:".$1;

Der Bildschirm enthält dann folgende Ausgaben:

> 1: 12
> 2: 34
> 3: 56
> 4: 78

Natürlich wird dies in einer Schleife erledigt. Jener Ausdruck, der ein Ergebnis bei erfolgreicher Suche zurückliefern soll, wird durch zwei runde Klammern begrenzt. Man kann mehrere Klammern verschachtelt und nebeneinander setzen. Perl legt die Ergebnisse links beginnend einfach in die nächste Variable ab. Diese Variablen werden standardgemäß einfach durchnummeriert: $1, $2, $3..... ;
z.B.: /(Ausdruck1)Ausdruck(Ausdruck2)/, Ergebnis in $1 und $2.

Dieses Verhalten kann durch ?: in der Klammer unterbunden werden z.B. (?:Ausdruck1). Es wird dieses Ergebnis in ein und derselben Variable abgelegt.

Innerhalb des Musters kann durch \1 statt $1 auf das Ergebnis des Klammerausdruckes referenziert werden.
Beispiel: /(a)\1/ doppeltes Vorkommen des Zeichen a.
Beispiel: /(\b(\w+)\s+\1\b)\1/ doppeltes Vorkommen eines Wortes.
Beispiel: /(^(\w+):\s+(.*)/ mailheader $1=Parameter $2=Inhalt

Alle Suchergebnisse erhält man innerhalb einer Liste. Auf diese kann man, wie jedes andere Array auch ensprechend zugreifen:

Beispiel_11.2:

$t = "12 34 56 78";
print (($t =~ m/(\d+)/g)[2]);

Der Bildschirm enthält dann folgende Ausgabe:

> 56

Zum Testen der regulären Ausdrücke habe ich ein kleines Perlprogramm geschrieben. Es nimmt einen String per Eingabe, legt per Eingabe den regulären Ausdruck für das Matching fest und liefert das Ergebnis. Diese win-version bei vorhandenem Perl-Interpreter über DOS die Datei regular.pl starten, viel Spaß: download regTest.zip(2Kb)