Perl: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
| Zeile 41: | Zeile 41: | ||
), | ), | ||
$cgi->end_table(); | $cgi->end_table(); | ||
| + | ergibt | ||
| + | [[Bild:tabelle.jpg]] | ||
Version vom 19. August 2009, 08:34 Uhr
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
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 Datei:Tabelle.jpg
