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!

Zeichensubstitution

Perl besitzt eine Ersetzen-Funktion. Diese Funktionen nennt sich Substitution. Die Syntax dazu lautet:

$text =~ s/AltesMusterZursetzen/Ersatz/

$text enthält irgendeinen String, zum Beispiel "good food".
=~ s steht für die Funktion der Substitution in Perl.
// enthält zwischen den Schrägstrichen die Zeichen, ohne Anführungszeichen!
Es kann jeder reguläre Ausdruck als Muster verwendet werden.

Damit können wir kleine Programme schreiben, die die Mustererkennung in Perl genauer erklären:

Beispiel_11b.1: kein oder mehrere o / gierig

$t = "good food";
$t =~ s/o*/e/g;
print $t."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> egeede efeede

Beispiel_11b.2: kein oder mehrere o / normal

$t1 = "good food";
$t1 =~ s/\bo*\b/e/;
print $t1."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> egood food

Beispiel_11b.3: kein oder mehrere o nicht als Wortgrenze / normal

$t2 = "good food";
$t2 =~ s/\Bo*\B/e/;
print $t2."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> ged food

Beispiel_11b.4: ein oder mehrere o nicht als Wortgrenze / normal

$t3 = "good food";
$t3 =~ s/o+/e/;
print $t3."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> ged food

Beispiel_11b.5: kein oder mehrere o als Wortgrenze / gierig

$t4 = "good food";
$t4 =~ s/\bo*\b/e/g;
print $t4."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> egoode efoode

Beispiel_11b.6: kein oder mehrere o nicht als Wortgrenze / gierig

$t5 = "good food";
$t5 =~ s/\Bo*\B/e/g;
print $t5."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> geed feed

Beispiel_11b.7: ein oder mehrere o / gierig

$t6 = "good food";
$t6 =~ s/o+/e/g;
print $t6."\n";

Der Bildschirm enthält dann folgende Ausgaben:

> ged fed

Wenn die Schreibweise eines Namens ungewiss ist (schreibe ich mich jetzt Roland, Rolant oder Rolannd), dann lautet die Anweisung:

Beispiel_11b.8: Umwandlung am Anfang und Ende

$t = "Das ist ein String";
$t =~ s/^D/W/;
$t =~ s/\.$/\?/;
print $t;

Der Bildschirm enthält dann folgende Ausgaben:

> Was ist ein String?

Mittels tr/alteListe/neueListe/ bzw y/alteListe/neueListe/ können ebenfalls Zeichen für Zeichen ersetzt werden. Es werden dabei die Zeichen der alten Liste mit dem entsprechenden Zeichen desselben Platzes in der neuen Liste getauscht. Das letzte Zeichen ist das Füllzeichen bei zuwenig Buchstaben.

Mögliche Modifikationen sind:

• c omplement: nimm das Gegenteil der altenListe
• d elete gefundene Zeichen löschen, ersetzte Zeichen bleiben
• s ubstitute fasse gleiche hintereinanderfolgende Zeichen der altenListe zu einem Zeichen der neuenListe zusammen.

Beispiel: * in $_ zählen: $x = tr/*/*/;
Beilspiel: Alle nichtalphanumerische Zeichen in ein Leerzeichen: tr/a-zA-Z/ /cs