...
...
if($Q::host1 != "") {
push (@f,$Q::host1);
}
if($Q::host2 != "") {
push (@f,$Q::host2);
}
$num = scalar @f;
print "<table>";
print "<tr bgcolor='blue'>
<td><font face='arial' size='2' color='white'><b>host</b></td>
</tr>";
for ($i = 0; $i <= ($num - 1); ++ $i) {
$vv =...