Ausgabe der Daten in einer HTML-Datei
<![CDATA[
print "Content-type: text/html\n\n";
print <<html_ende;
<HEAD>
<TITLE>Umfrage: Wer wird deutscher Fußballmeister</TITLE>
</HEAD>
<BODY BGCOLOR="#fedcba" TEXT="#000000" LINK="#808080" VLINK="#c0c0c0"
ALINK="#c0c0c0">
<H1><CENTER><B>Umfrage: Wer wird deutscher Fußballmeister</B></H1>
<HR noshade></CENTER>
<TABLE ALIGN=CENTER BORDER=1 CELLSPACING=3>
<TR ALIGN=CENTER VALIGN=MIDDLE>
<TD>Team</TD>
<TD>Stimmen in Prozent</TD>
<TD>Stimm-Anzahl</TD>
</TR>
html_ende
]]>
print "Content-type: text/html\n\n" teilt dem Browser mit, dass
es sich bei dem ausgegebenen Text um HTML-Quellcode handelt.
Die Anweisung print <<html_ende bewirkt, dass die
folgenden Zeilen als HTML-Code an den Browser übermittelt werden. Weil
hierauf noch ein Perl-Teil folgt, wird mit html_ende die Ausgabe
des HTML-Codes (vorerst) beendet.
<![CDATA[
for($i=0; $i<=$#wert; $i++)
{
if($i==$top)
{
print "\n<TR ALIGN=RIGHT VALIGN=TOP>\n";
print " <TD ALIGN=LEFT><FONT SIZE=4><B>",$voll[$i],"</B></FONT></TD>\n";
print " <TD><FONT SIZE=4><B>",$pro[$i]," %</B></FONT></TD>\n";
print " <TD><FONT SIZE=4><B>",$wert[$i],"</B></FONT></TD>\n</TR>\n";
}
else
{
print "\n<TR ALIGN=RIGHT VALIGN=TOP>\n";
print " <TD ALIGN=LEFT>",$voll[$i],"</TD>\n";
print " <TD>",$pro[$i]," %</TD>\n";
print " <TD>",$wert[$i],"</TD>\n</TR>\n";
}
}
print "<TR><TD COLSPAN=3></TD></TR>\n";
print "<TR ALIGN=RIGHT>\n";
print " <TD></TD>\n";
print " <TD>100%</TD>\n";
print " <TD>",$gesamt,"</TD>\n</TR>\n";
]]>
Als erstes wird eine Schleife sooft durchlaufen, bis die Anzahl der $#werte, also die Anzahl der Teams, überschritten wird: for($i=0; $i<=$#wert; $i++)
Anschließend findet eine Abfrage statt, bei der festgestellt wird, ob $i den Wert der Array-Element-Nummer des Teams
mit den meisten Stimmen $top hat. Trifft dies zu, so wird der HTML-Code
zwischen { und } hinter der if-Zeile ausgegeben, wobei der HTML-Code in Anführungsstrichen
steht. Mit einem Komma wird der HTML-Code-Teil von den Werten $voll[$i], $pro[$i] und $wert[$i]
getrennt. Die Unterscheidung bezüglich $top ist notwendig, weil beim $top-Wert die Ausgabe
größer und fett formatiert wird.
Schließlich wird noch eine Tabellen-Zeile mit der $gesamt-Anzahl der
Stimmen erzeugt: print " <TD>",$gesamt,"</TD>\n</TR>\n"
<![CDATA[
print <<html_ende;
</TABLE>
<HR noshade>
<CENTER><A HREF="../umfrage.htm" onClick="history.back()">
<FONT SIZE=5><< Zurück</FONT></A></CENTER>
<HR noshade>
<FONT SIZE=2>©opyrights: <A HREF="mailto:webdesign\@nils-heuermann.de">Nils
Heuermann</A> & <A HREF="mailto:dyck2000\@gmx.de">Stefan Dyck</A> 2000
<BR>Umfrage gestartet am: 26.11.2000</A></FONT>
</BODY>
</HTML>
html_ende
]]>
Nun wird erneut mit print <<html_ende ein HTML-Teil eingeleitet und zum Schluss wieder
mit html_ende geschlossen.
Der hier ausgegebene HTML-Code erzeugt lediglich den Fuß der HTML-Seite.
©opyrights @ Nils Heuermann & Stefan Dyck 2000