Perl und CGI Workshops Erste kleine Scripte

CGI/Perl Workshops Erste kleine Scripte

Inhaltsverzeichnis/Workshops Übersichtsseite/Erste kleine Scripte

In diesem Abschnitt wird es nun ernst, erste kleine Übungen sollen den Umgang mit Perl näherbringen. Ich werde versuchen die Beispiele einigermaßen Praxisnah zu gestalten, und auch möglichst ein kleines Demoscript anbieten.

1. Der Umgang mit einfachen Variablen

#!/usr/bin/perl
# Variablenabgaben
$a = 250;
$b = 10;
$c = $a + $b;
$name = "Max Mustermann";
# Scriptausgabe
print "Content-type: text/html\n\n";

print "Hallo $name, die Summe von $a und $b<br>";
print "ist $c.\n";

Script Demo: Script1.pl

Erläuterungen dazu:

Hinweis Vergessen Sie nicht das Semikolon am Zeilenende!

#!/usr/bin/perl Dies ist die sogenannte "shebang" (sh für das Kreuz # und bang für das !-Zeichen) Zeile. Gebraucht wird diese unter Unix, sie Zeigt den Pfad zum Perlinterpreter. Diese Zeile muss in der ersten Zeile stehen!

# Variablenabgaben Dies ist ein Kommentar. Sie können Kommentare fast überall im Script notieren, so auch am Zeilenende nach dem Ende des Perlcodes. Nutzen Sie diese Kommentare um kleine Erläuterungen in den Scripten zu hinterlassen.

$a = 250; Eine Variable, notieren Sie bei Zahlen so und wenn Sie $name = "Max Mustermann"; notieren mit "".

$c = $a + $b; eine Rechenoperation in Perl $a + $b wird in $c gespeichert.

print "Content-type: text/html\n\n"; Wichtige Zeile! Hier beginnt die Ausgabe an den Browser. Wr diese vergisst erhält fast immer einen fetten Server Error.

print "Hallo $name, die Summe von $a und $b<br>"; Print Anweisung. Hier wird das ausgegeben was zwischen den "" eingeschlossen ist.

1.1. Weitere Elemente hinzufügen

Wer in den Quelltext des ersten Demoscriptes schaut wird feststellen das hier nicht los ist mit Layout. Noch nichtmal ein Body Tag ist vorhanden. Hier soll es nun darum gehen das Aussehen ein wenig freundlicher zu gestalten.

#!/usr/bin/perl
# Variablenabgaben
$a = 250;
$b = 10;
$c = $a + $b;
# Bodytagvariablen
$hintergrundfarbe = "#DFDFDF";
$textfarbe = "#000080";

$name = "Max Mustermann";
# Scriptausgabe
print "Content-type: text/html\n\n";
print "<html>";
print "<head><title>Eine Rechenaufgabe</title></head>";
print "<body bgcolor=\"$hintergrundfarbe\" text=\"$textfarbe\"></body>";
print qq~ 
<table bgcolor="#DAE6ED" cellspacing="2" cellpadding="2" border="0" width="500">
<tr>
    <td><font face="Verdana, Arial" size="2">Hallo $name, die Summe von $a und $b ist $c</font></td>
</tr>
</table>
~;
print "</body></html>";

Script Demo: Script1.1.pl

Erläuterungen dazu:

Jedem wird erstmal auffallen das die Scriptausgabe jetzt im Quelltext schon eher nach HTML ausschaut. Trotzdem gibt es wieder neue Sachen zu beachten. print "<body bgcolor=\"$hintergrundfarbe\" text=\"$textfarbe\"></body>"; Hier stehen innerhalb der print Anweisung die Variablen des Body Tags. Diese müsen hier durch Backslashes maskiert sein!

Nun kommt das eigentlich neue, die print qq~ Anweisung die mit ~; endet. Abschnitte die so eingeschlossen sind enthalten HTML oder auch Javascript Code in "Reinform" also ohne die \ Backslashes. Diese print Anweisung kann auch so notiert werden: print qq| - |; oder auch
print <<HTMLABSCHNITT; - HTMLABSCNITT Beachten Sie: HTMLABSCHNITT können Sie frei wählen, da könnte auch print <<ADMINSEKTION; stehen. Sie müssen nur am Ende des Abschnitte auch wieder ADMINSEKTION notieren.

Hinweis: In Abschnitten die mit qq| - |; oder gleichwertigen eingeschlossen sind können Sie keine Kommentare notieren, diese werden ansonsten mit ausgegeben.

Zum Inhaltsverzeichnis/Workshops Übersichtsseite/Erste kleine Scripte

Autor: Helmut Walter Homepage Inspire-world Fragen, Anregungen und Hinweise bitte in das Forum