rioc+2008-04-11 13:24:15--

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11

                print "<font size=+2>$stst[1]</font size>\n";
                print "<table cols=7 BORDER=1 cellpadding=1 cellspacing=1>\n";
                print "<tr>\n";
                print   "<td width=150 align=right><b>Hostname</b></td>\n";
                print   "<td width=120 align=right><b>IP-Adresse</b></td>\n";
                print   "<td width=150 align=right><b>Model</b></td>\n";
                print   "<td width=80 align=right><b>uptime (d)</b></td>\n";
                print   "<td width=60 align=right><b>OS</b></td>\n";
                print   "<td width=100 align=right><b>Last Update</b></td>\n";
                print   "<td width=50 align=right><b>SN</b></td>\n";
                print "</tr>";

1
2
3
4
5
6
7
8
9
10
11
12
13

print <<"EOM";
<font size="+2">$stst[1]</font>
<table cols=7 BORDER=1 cellpadding=1 cellspacing=1>
<tr>
<td width=150 align=right><b>Hostname</b></td>
<td width=120 align=right><b>IP-Adresse</b></td>
<td width=150 align=right><b>Model</b></td>
<td width=80 align=right><b>uptime (d)</b></td>
<td width=60 align=right><b>OS</b></td>
<td width=100 align=right><b>Last Update</b></td>
<td width=50 align=right><b>SN</b></td>
</tr>
EOM

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem