Perl: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
(Die Seite wurde neu angelegt: ==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. Mit di...) |
|||
| (9 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
| Zeile 5: | Zeile 5: | ||
my $cgi = new CGI; | my $cgi = new CGI; | ||
Es gibt verschiedene Methoden, um HTML-Code zu erzeugen. | Es gibt verschiedene Methoden, um HTML-Code zu erzeugen. | ||
| − | + | ===HTML-Struktur erzeugen=== | |
| − | |||
print $cgi->header(); | print $cgi->header(); | ||
print $cgi->start_html(); | print $cgi->start_html(); | ||
| Zeile 12: | Zeile 11: | ||
ergibt | ergibt | ||
<!DOCTYPE html | <!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"> | <html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"> | ||
<head> | <head> | ||
| Zeile 23: | Zeile 22: | ||
</body> | </body> | ||
</html> | </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) | ||
| + | |||
| + | <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> |