Perl
Zur Navigation springen
Zur Suche springen
CGI-Modul
use CGI qw(:standard);
Jetzt kann ein neues Objekt angelegt werden.
my $cgi = new CGI;
Es gibt verschiedene Methoden, um HTML-Code zu erzeugen.
HTML-Struktur erzeugen
print $cgi->header(); print $cgi->start_html(); print $cgi->end_html();
ergibt
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> </head> <body> </body> </html>
Tabelle erzeugen
Um eine Tabelle zu erzeugen gibt es 4 Methoden. table() um den einleitenden table-Tag zu schreiben, Tr(), td() für Tabellenzeile und -Spalte und end_table() um den abschließenden table-Tag zu erzeugen. Alles was in den Tr() und td()-Tags steht wird als Argument an die Methoden übergeben.
print $cgi->table(),
$cgi->Tr(
$cgi->td('Kundennummer:')
),
$cgi->Tr(
$cgi->td(
$cgi->textfield({-name=>'clientid',-size=>40})
)
),
$cgi->Tr(
$cgi->td('Adresse des Kunden:')
),
$cgi->Tr(
$cgi->td(
$cgi->textarea({-name=>'address',-columns=>45,-rows=>4})
)
),
$cgi->end_table();
ergibt (Quellcode ist umstrukturiert)
| Kundennummer: |
| <input type="text" name="clientid" size="40" /> |
| Adresse des Kunden: |
| <textarea name="address" rows="4" cols="45"></textarea> |