1

6.3 Perl/CGI-Tutorial

6.3.1 Einleitende Worte

6.3.2 Hallo Welt

6.3.2.1 Hallo Code

6.3.2.2 Laufzeit-Umgebung

• Soll es unter Windows laufen, brauchen Sie die erste Zeile nicht, sie schadet aber auch nicht. Unser Tipp: einfach stehen lassen.
  
• Soll es dagegen unter Unix/Linux funktionieren, brauchen Sie die erste Zeile unbedingt. Auch müssen Sie herausfinden, ob der dort angegebene Pfad zu Perl überhaupt richtig ist. Wenn Sie den Pfad nicht kennen, z.B. weil das Script auf dem Server Ihres Providers laufen soll, erkundigen Sie sich beim Administrator bzw. beim Support Ihres Providers.


• Soll das Script lokal zum Testen ausgeführt werden? Dann entfernen Sie die zweite Zeile.


• Wenn das Script dagegen auf einem Internet-Server laufen soll, entfernen Sie die letzte Zeile.

6.3.2.3 Testen unter Windows

• Öffnen Sie die Eingabeaufforderung. Sie finden Sie im Startmenü unter "Programme"->"Zubehör".


• Wechseln Sie in das Verzeichnis, in dem Ihre Perl-Dateien liegen


• Geben Sie ein: perl -c scriptname.pl


• Jetzt wird Ihr Script auf Fehler untersucht. Sie erhalten einen Report, wo der Fehler vermutet wird. Tipp: um diese Meldungen besser interpretieren zu können, sollten Sie sich einen Editor besorgen, der Zeilennummern anzeigt.

6.3.2.4 Installieren auf einem Webserver

• Bauen Sie eine FTP-Verbindung zu Ihrem Server auf


• Machen Sie das Verzeichnis für CGI-Programme auf Ihrem Server ausfindig. Meist heißt es cgi-bin oder cgi-local. In Zweifelsfällen wird Ihr Provider Ihnen hier Auskunft geben können.


• Laden Sie die Datei in das Verzeichnis (ASCII-Modus benutzen!) und setzen Sie die richtigen Berechtigungen (zum Testen: chmod 777). Überprüfen Sie, ob die Datei auch die richtige Endung hat (meist .pl oder .cgi)


• Nun können Sie das Script vom Browser aus ansprechen. Beispiel: einfach http://www.xyz.de/cgi-bin/script.pl als URL eingeben. Was Sie genau eingeben müssen, hängt natürlich davon ab, wohin Sie das Script hochgeladen haben.


• Wenn jetzt etwas nicht klappt, liegt der Fehler höchstwahrscheinlich bei Ihnen. Das Error-Log kann fast immer helfen. Alternativ dazu können Sie häufig das Modul CGI::Carp benutzen (siehe oberes Beispiel).

6.3.3 Das CGI-Modell

• Der Browser sendet eine Anforderung an den Server. In der Anforderung enthalten sind Daten, auch Argumente genannt. Nur: wo sind diese Daten? Wenn z.B. eine URL ein Fragezeichen enthält, können Sie davon ausgehen, dass alles, was danach folgt, Argumente sind.


• Das entsprechende Programm bekommt diese Daten zur Verfügung gestellt und verarbeitet sie.


• Das Programm gibt Daten an die Standard-Ausgabe aus, die an den Browser geschickt werden. Die Standard-Ausgabe können Sie auch unter Windows an vielen Beispielen bewundern: wann immer Sie beispielsweise eine MS-DOS-Eingabeaufforderung öffnen, wurde das, was Sie dort als Text sehen, von den entsprechenden Programmen an die Standard-Ausgabe geschickt.


• Der Browser zeigt die empfangenen Daten an: Sie müssen also HTML versenden.

6.3.4 Hallo Welt im Detail

6.3.5 Wichtige Sprachelemente

6.3.5.1 Der Kommentar

6.3.5.2 Blöcke

6.3.5.3 Variablen

6.3.5.3.1 Variablen setzen

6.3.5.3.2 Notationen

6.3.5.3.3 Quoting und Interpolation

Interpolation

        $variable1 = "Ich denke, ";
        $variable2 = "$variable1 also bin ich";
        print $variable2;
        
        > Ich denke, also bin ich
        

     

        $variable1 = "Ich denke, ";
        $variable2 = '$variable1 also bin ich';
        print $variable2;
        
        > $variable1 also bin ich
        

     

Andere Quoting-Mechanismen

        $var = qq(Ich denke, also bin ich);
        $var2 = qq($var <= berühmtes Zitat);
        $var3 = q($var <= berühmtes Zitat);
        # \n in der nächsten Zeile - was ist das?
        # Siehe dazu den nächsten Abschnitt
        print $var2, "\n";
        print $var3, "\n";
        
        > Ich denke, also bin ich <= berühmtes Zitat
        > $var <= berühmtes Zitat        
        

     

Sonderzeichen

6.3.5.3.4 Namensräume

        {
            # Globale Variable
            $var1 = "testwert";
        }
        print $var1;
        
        > testwert
        
        {
            # Lokale Variable, nur in
            # diesem Block gültig
            my $var2 = "testwert";
        }
        # Hier ist der Block verlassen,
        # $var2 hat also keinen Wert
        # mehr.
        print $var2;
        
        > (keine Ausgabe)
        

     

6.3.5.4 Operatoren

6.3.5.4.1 String-Operatoren

        $a = "String1 ";
        $b = "String2";
        print $a.$b;
        
        > String1 String2
        

     

        print "Zahl: ".10;
        
        > Zahl: 10
        
        # Klammerung notwendig, um
        # klar zu machen, dass keine
        # Kommazahl gemeint ist
        print ((10).(10));
        
        > 1010
        

     

6.3.5.4.2 Numerische Operatoren

        $a = 5 + 4;
        print $a,"\n";
        
        > 9
        
        $a = 10;
        $b = 3;
        $c = $a + $b;
        print $c,"\n";
        
        > 13
        
        print 3*4,"\n";
        
        > 12
        

     

6.3.5.4.3 Abkürzungen

6.3.5.4.4 Logische Operatoren

6.3.5.4.5 Vergleichsoperatoren

6.3.5.4.6 Operatoren-Rangfolge

        print 8*5+3;
        
        > 43
        

     

6.3.5.5 Arrays

6.3.5.5.1 Definition

        # Array erzeugen
        @array = ('eins', 'zwei', 'drei');
        # Ein Element der Liste ausgeben
        print $array[0], "\n";
        
        > eins
        
        print $array[2], "\n";
        
        > drei
        
        # Ein Element zu setzen, ist genauso einfach
        $array[2] = "neuer Wert!";
        print $array[2], "\n";
        
        > neuer Wert
        

     

        # Array als leere Liste erzeugen
        # Ist sinnvoll, um sich selbst
        # vor Fehlern zu schützen
        @array = ();
        
        $array[10] = "Das elfte Element";
        print $arrray[10], "\n";
        
        > "Das elfte Element";
        
        # Array kopieren
        @array2 = @array;
        

     

6.3.5.5.2 Die Länge von Arrays

        # my funktioniert auch mit Arrays
        my @array = ('eins','zwei', 'drei');
        print "Das Array hat so viele Elemente:", $#array+1;
        

     

        # my funktioniert auch mit Arrays
        my @array = ('eins','zwei', 'drei', 'hundert');
        # Letztes Element ausgeben:
        print $array[$#array];
        

     

6.3.5.5.3 Array-Funktionen

pop

        # Jetzt hat @array drei Elemente
        my @array = ('eins','zwei', 'drei');
        # Nach der nächsten Zeile sind es nur
        # noch zwei Elemente
        my $letzter_wert = pop(@array);
        print $letzter_wert;
        
        > drei
        

     

push

        my @array = ('eins','zwei', 'drei');
        push(@array, 'vier');
        
        # Letztes Element ausgeben:
        print $array[3], "\n";
        
        > vier
        
        # Und jetzt: ein Array an ein anderes
        # anhängen
        my @array2= ('fuenf', 'sechs');
        push(@array, @array2);
        
        # Letztes Element ausgeben:
        print $array[3], "\n";
        
        > sechs        
        

     

shift und unshift

        my @array = ('eins','zwei', 'drei');

        my $erstes_element = shift(@array);
    
        # Erstes Element ist entfernt,
        # jetzt ist zwei vorne
        print $array[0];
        
        > zwei
        
        unshift(@array, $erstes_element);
        
        # Und jetzt ist eins wieder vorne:
        print $array[0];
        
        > eins
        

     

join

        my @gaeste = ('Klaus', 'Hans', 'Alex');
        print "Eingeladen: ", join(', ', @gaeste);
        

     

sort

        my @a = ('x', 'z', 'y');
        my @sorted = sort(@a);
        print join(',', @sorted);
        

     

        my @a = (1, 2, 3, 10);
        my @numerisch = sort {$a <=> $b} (@a);
        my @alphabetisch = sort {$a cmp $b} (@a);
        print "Numerisch: ", join(',', @numerisch), "\n";
        print "Alphabetisch: ", join(',', @alphabetisch), "\n";
        
        > Numerisch: 1,2,3,10
        > Alphabetisch: 1,10,2,3
        

     

reverse

6.3.5.6 Hashes

6.3.5.6.1 Definition

        my %hash;
        $hash{a} = 'Test-Wert';
        print $hash{a};
        
        > Test-Wert
        

     

        my %kunde;
        $kunde{name} = "Meier";
        $kunde{strasse} = "Mainweg";
        $kunde{ort} = "Muenchhausen";
        $kunde{telefon} = "44593";
        

     

6.3.5.6.2 Hash-Funktionen

keys

        my %kunde;
        $kunde{name} = "Meier";
        $kunde{strasse} = "Mainweg";
        $kunde{ort} = "Muenchhausen";
        $kunde{telefon} = "44593";
        my @schluessel = keys(%kunde);
        print join(', ', @schluessel);        
        # Die Reihenfolge der Schlüssel
        # ist bei Ihnen eventuell
        # anders!
                
        > telefon, ort, strasse, name
        

     

delete

        my %kunde;
        $kunde{name} = "Meier";
        $kunde{strasse} = "Mainweg";
        $kunde{ort} = "Muenchhausen";
        $kunde{telefon} = "44593";
        
        delete $kunde{telefon};
        
        my @schluessel = keys(%kunde);
        print join(', ', @schluessel);
        # Die Reihenfolge der Schlüssel
        # ist bei Ihnen eventuell
        # anders!
        
        > ort, strasse, name
        

     

6.3.5.7 Andere Funktionen

6.3.5.7.1 chop/chomp

        my $zeichenkette = "test";
        chop($zeichenkette);
        print $zeichenkette;        
        
        > tes
        

     

6.3.5.7.2 index

        my $zeichenkette = "abcdefg";
        print index($zeichenkette, 'c');
        
        > 2
        

     

6.3.5.7.3 substr

        my $zeichenkette = "abcdefg";
        print substr($zeichenkette, 3, 3);
        
        > def
        

     

        my $basis_zeichenkette = "Klaus sucht das Haus!";
        my $suchen = "Klaus";
        my $ersetzen = "Peter";
        my $position = index($basis_zeichenkette, $suchen);
        substr($basis_zeichenkette, $position, length($suchen), $ersetzen);
        print $basis_zeichenkette;    
        
        > Peter sucht das Haus    
        

     

6.3.5.7.4 length

        my $zeichenkette = "abcdefg";
        print length($zeichenkette);        
        
        > 7
        

     

6.3.5.7.5 die

6.3.5.7.6 exit

6.3.5.7.7 eval

        my $code = qq(print "ABC";);
        eval($code);    
        
        > ABC    
        

     

6.3.5.7.8 Zeit-Funktionen

        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$sommerz) = localtime(time);
        $year = $year + 1900;
        $mon = $mon + 1;
        print "Es ist der $mday.$mon.$year";        
        

     

6.3.5.7.9 Funktionen selbst definieren

        print &summe(3,2);
        sub summe
        {
            my $argument = shift;
            my $argument2 = shift;
            return ($argumentd + $argument2);
        }        
        

     

        sub ersetzen
        {
            my $basis_zeichenkette = $_[0];
            my $suchen = $_[1];
            my $ersetzen = $_[2];
            my $position = index($basis_zeichenkette, $suchen);
            substr($basis_zeichenkette, $position, length($suchen), $ersetzen);
            return $basis_zeichenkette;            
        }
        print &ersetzen("Ich will ein Haus", "Haus", "Computer");        
        

     

6.3.5.8 Bedingungen

6.3.5.8.1 if

6.3.5.8.2 Andere Möglichkeiten

6.3.5.9 Schleifen

6.3.5.9.1 Die for-Schleife

        for (my $i = 0; $i < 10; $i++)
        {
            print $i;
        }
        
        > 0123456789
        

     

6.3.5.9.2 Die while-Schleife

        my @liste = ('a', 'b');
        foreach my $element (@liste)
        {
            print $element
        }
        
        > ab
        

     

        my %kunde;
        $kunde{name} = "Meier";
        $kunde{strasse} = "Mainweg";
        $kunde{ort} = "Muenchhausen";
        $kunde{telefon} = "44593";
        foreach my $key (keys %kunde)
        {
            my $wert = $kunde{$key};
            print "$key = $wert";
        }
        
        > telefon = 44593 ort = Muenchhausen strasse = Mainweg name = Meier
        

     

6.3.5.10 Dateizugriff

6.3.5.10.1 Datei lesen

6.3.5.10.2 Datei schreiben

6.3.5.10.3 Datei sperren

6.3.6 Fortgeschrittene Programmierkonzepte

6.3.6.1 Quellcode auslagern

6.3.6.1.1 Perl-Module

Module installieren

Module verwenden

Die Funktionen eines Moduls

6.3.6.1.2 Selbst Code auslagern

Namensräume

            package Variablen;
            $eins = "a";
            $zwei = "b";
            package main;
            print $Variablen::eins, $Variablen::zwei;
        
            > ab
            

     

Code verteilen

6.3.6.2 OOP in Perl

6.3.6.2.1 new

6.3.6.2.2 Zugriff auf Methoden und Eigenschaften

6.3.6.3 Fazit

6.3.7 Datenbanken

6.3.7.1 Grundsätzliches

6.3.7.2 Datenbank ansprechen

6.3.7.3 Abfrage durchführen

6.3.7.4 Anfrage durchführen

6.3.7.5 Verbindung schließen

6.3.7.6 Beispiel-Programm

6.3.8 Interaktion mit der Umgebung

6.3.8.1 Andere Programme starten

6.3.8.1.1 exec

6.3.8.1.2 system

6.3.8.1.3 Backticks

6.3.8.2 CGI

6.3.8.2.1 Zugriff

6.3.8.2.2 Übergabe von Daten

6.3.8.2.3 Beispiel-Programm