5 4. Server-seitiges Scripting mit Perl - Universität Paderborn

Vorlesung und Übung 

Dr. Peter Pfahler 

Institut für Informatik 

Universität Paderborn 

© Peter Pfahler, Michael Thies, Universität Paderborn 

5 

4. Server-seitiges Scripting mit Perl 

Geschichtlicher Überblick 

entwickelt 1987 von Larry Wall. 

Wall benötigte eine Möglichkeit, Textdateien zu öffnen 

und zu lesen, um Berichte über die Originaldateien zu 

erzeugen. 

Der Name “Perl” kommt von 

Practical Extraction and Report Language 


4 

Larry Wall 

Die Sprache ist eher dazu ausgelegt, praktisch (einfach in der Anwendung, 

leistungsstark, vollständig) zu sein als schön (schlank und elegant). 

(aus der Online-Dokumentation) 

4-2

Schnell populär geworden: 


Die Wurzeln von Perl 

• Perl ist gut für “quick prototyping“. 

• Kein extra Compiler nötig. Programme werden beim Aufruf übersetzt. 

• Kostenlos verfügbar, Open Source. 

• Stark in der Text-Verarbeitung: Einsatz in der Systemadministration. 

• Sehr oft eingesetzt für die CGI-Programmierung. 

4.1. CGI-Programmierung mit Perl 

#!"C:\xampp\perl\bin\perl.exe" 

print "Contenttype: text/html\n\n"; 

print ''; 

print ''; 

print 'First Perl'; 

print ''; 

print 'GCI with Perl'; 

print 'CGI with Perl is running'; 

print 'Time: ' . localtime(); 

print ''; 


4-3 

4-4


CGI-Programmierung mit Perl 

Verarbeitung von HTML-Formulardaten: 

Datenübermittlung per 

 

POST-Methode. 

 

Datenempfang per 

Greet Form 

Standard-Eingabe 

 

 

 

 

 

 

 

 


CGI-Programmierung mit Perl 

#!"C:\Programme\xampp\perl\bin\perl.exe" 


print "My Query String is:"; 

print "" . . ""; 

Die Content-Type-Ausgabe veranlasst den Server, 

den korrekten http-Header für HTML-Texte zu produzieren. 

Die extra Leerzeile beendet diesen Header. 


POST-Methode. 

Datenempfang per 

Standard-Eingabe 

4-5 

4-6

Datenübermittlung mit der GET-Methode 

HTML-Text: 

 

 

 

 

Perl-Skript: 


$query = $ENV{'QUERY_STRING'}; 

$query =~ /name=(.*)/; 

$who=$1; 

print "Hello $who!"; 



GET-Methode. 

Datenempfang durch 

Umgebungs-Variablen 

Die Variable $ENV{'REQUEST_METHOD'} enthält die Übergabe-Methode 

(entweder "GET" oder "POST"). 

So können Perl-Skripte geschrieben werden, die für beide Methoden funktionieren. 


4.2. Variablen in Perl 

Perl kennt verschiedene Arten von Variablen. 

Der Präfix des Namens gibt die Art an: 

Variablen werden implizit durch Verwendung definiert: 

$camels = 123; # eine ganze Zahl 

Sie sind dynamisch typisiert: 

$camels = "123"; # ein String 

Typanpassung geschieht implizit: 

print $camels + 1 . "\n"; # String > int und zurück 

4-7 

4-8


Skalare Variablen 

Skalare Variablen nehmen Zahlen (ganze und Gleitpunktzahlen), Strings oder 

Referenzen auf: 

$answer = 42; # ganze Zahl 

$pi = 3.141; # Gleitpunktzahl 

$apples = 6.02e23; # mit Exponent 

$pet = "Camel"; # ein String 

$sign = "I love my $pet"; # String mit Ersetzung 

$cost = 'It costs $100'; # String ohne Ersetzung 

$cwd = `pwd`; # Ausführung von “pwd” 

$myref = \$pet; # Referenz auf $pet 

Die Anführungszeichen (quotes) bedeuten: 

" String mit Ersetzung (interpolation) 

' String ohne Ersetzung 

` Ausführung 


Array-Variablen 

Geordnete Liste beliebiger Werte, numerisch indiziert: 

@home = ("couch", "chair", "table"); # ListenZuweisung 

print $home[0]; # erstes Element (Skalar!) 

($a, $b, $c) = @home; # ListenZuweisung (Destructuring) 

($a, $b) = ($b, $a); # Vertauschung 

Nützliche Funktionen für Arrays 

4-9 

4-10

Hash-Variablen (Assoziative Arrays) 

Ungeordnete Menge von Werten, auf die mit einen String-Schlüssel zugegriffen wird. 

Inhalt eines solchen assoziativen Arrays sind also immer Paare (Schlüssel, Wert): 

%tr1 = ("Sun" => "Sonne", "Moon" => "Mond"); 

$tr1{"Earth"} = "Erde"; # SkalarNotation! 

%tr2 = ("Star" => "Stern", %tr1) # Hash integrieren 

%h = ("a", 1, "b", 2, "c", 3) # Äquiv. Initialisierung 

Nützliche Funktionen für Hashes 


$skalar = "Camel"; 

@array = (1,2,3); 

%hash = ("Oktober" => 10); 


Referenzen 

Referenzen sind Verweise auf solche Variablen: 

$refskalar = \$skalar; 

$refarray = \@array; 

$refhash = \%hash; 

print "$refskalar $refarray $refhash"; 

print erzeugt: SCALAR(0x81037a4) ARRAY(0x81037d4) 

HASH(0x8103834) 

Dereferenzierung geschieht durch Voranstellung des Präfixes für den referenzierten 

Typ: 

print $$refskalar # schreibt "Camel" 

print @$refarray # schreibt "123" 

print %$refhash # schreibt "Oktober10" 

4-11 

4-12

Anwendungsbeispiel 1: Punkteliste 

Die Aufgabe besteht darin, eine Punkteliste für Studierende nach Namen zu 

sortieren und für jeden Namen die Punkte und die durchschnittliche Punktezahl 

auszugeben. 

Beispiel-Eingabe (Datei „grades“) 

Anton 1 

Werner 2 

Heidi 1 

Monika 3 

Anton 5 

Heidi 3 

Beispiel-Ausgabe 

Anton: 1 5 Average: 3 

Heidi: 1 3 Average: 2 

Monika: 3 Average: 3 

Werner: 2 Average: 2 


Anwendungsbeispiel 1: Punkteliste 

#! /usr/bin/perl 

open(GRADES, "

Anwendungsbeispiel 2: CGI-Skript mit GET- 

Übergabe 

URL: 

http://localhost/cgibin/confirm.pl? 

Name=RalfDieter+Krau%DF& 

Strasse=%DCckern+56& 

Ort=33102+Paderborn 


Anwendungsbeispiel 2: HTML-Formular 

 

 

Vorname und Name 

 

 

Strasse und Hausnummer 

 

 

Postleitzahl und Ort 

 

 

 

 

 

 

 


4-15 

4-16

Anwendungsbeispiel 2: Generierung der 

Bestätigungsseite 

#! /usr/bin/perl 


print

5 4. Server-seitiges Scripting mit Perl - Universität Paderborn

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?