Perl: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
| (3 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
| Zeile 23: | Zeile 23: | ||
</html> | </html> | ||
===Tabelle erzeugen=== | ===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(), | print $cgi->table(), | ||
$cgi->Tr( | $cgi->Tr( | ||
| Zeile 41: | Zeile 42: | ||
), | ), | ||
$cgi->end_table(); | $cgi->end_table(); | ||
| − | ergibt | + | ergibt (Quellcode ist umstrukturiert) |
| − | + | <table /> | |
| + | <tr> | ||
| + | <td>Kundennummer:</td> | ||
| + | </tr><tr> | ||
| + | <td><input type="text" name="clientid" size="40" /></td> | ||
| + | </tr><tr> | ||
| + | <td>Adresse des Kunden:</td> | ||
| + | </tr><tr> | ||
| + | <td><textarea name="address" rows="4" cols="45"></textarea></td> | ||
| + | </tr> | ||
| + | </table> | ||
| + | |||
| + | ===Formulare erzeugen=== | ||
Aktuelle Version vom 24. August 2009, 07: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
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> |