Perl: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
| Zeile 23: | Zeile 23: | ||
</html> | </html> | ||
===Tabelle erzeugen=== | ===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(); | ||
Version vom 19. August 2009, 08:31 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();