Hi,
kann mir jemand die Syntax für eine Tabelle in Perl auschreiben?
Sagen wir, sie soll die Breite 3 und 2 Spalten und 3 Zeilen haben inkl. Table-Header. Die Ausrichtung soll zentriert sein.
Vielen Dank, Thomas
Hallo Thomas,
kann mir jemand die Syntax für eine Tabelle in Perl
auschreiben?Sagen wir, sie soll die Breite 3 und 2 Spalten und 3 Zeilen
haben inkl. Table-Header. Die Ausrichtung soll zentriert sein.
La voila:
#!C:/Perl/bin/perl -w --
# Codebeispiel zur Erstellung von HTML-Code mit dem CGI-Modul
use strict;
use CGI ':standard';
use CGI::stuck\_out\_tongue:retty qw( :html3 ); # erzeugter HTML-Code wird
# lesefreundlich formatiert
# Tabellendaten:
my @zeilen = (
["Mein 1. Titel", "Mein 2. Titel", "Mein 3. Titel"],
['wert1\_1' , 'wert1\_2' , 'wert1\_3'],
['wert2\_1' , 'wert2\_2'],
['wert3\_1' , 'wert3\_2' , 'wert3\_3'],
);
# HTML-Code:
print start\_html("Tabelle mit CGI.pm");
print table({-border=\>1},
caption('Belanglose Überschrift'),
Tr({-align=\>"center",-valign=\>"top"},
[
th($zeilen[0]),
td($zeilen[1]),
td({-colspan=\>2}, $zeilen[2]),
td($zeilen[3])
]
)
);
print end\_html;
Weitere Infos unter „perldoc CGI“.
Gruß,
-Andreas.
PS: Die colspan-Zeile ist HTML-mäßig zwar nicht ganz korrekt,
da hier jedes td mit colspan=„2“ versehen wird, der Browser zeigt
es dennoch richtig an.