<html>
<head>
<title>HTML table tag in Embperl</title>
</head>
<body>
<p> $tabmode = default <p>
<hr><p>Display an two dimensional array with one, two and three columns !<BR>
Please take a look at the source in your browser to see the difference<BR>
[-
undef @a ;
undef @b ;
$a[0][0] = 'a1/1' ;
$a[1][0] = 'a2/1' ;
$a[1][1] = 'a2/2' ;
$a[2][0] = 'a3/1' ;
$a[2][1] = 'a3/2' ;
$a[2][2] = 'a3/3' ;
$b[0][0] = 'b1/1' ;
$b[1][0] = 'b2/1' ;
$b[1][1] = 'b2/2' ;
$b[2][0] = 'b3/1' ;
$b[2][1] = 'b3/2' ;
$b[2][2] = 'b3/3' ;
$maxcol=99 ;
-]
$a[0][[0] = '1/1' ;<BR>
$a[1][[0] = '2/1' ;<BR>
$a[1][[1] = '2/2' ;<BR>
$a[2][[0] = '3/1' ;<BR>
$a[2][[1] = '3/2' ;<BR>
$a[2][[2] = '3/3' ;<BR>
<P>$tabmode = default <P>
<table>
<tr>
<td>[+ $a[$row][0] +]</td>
</tr>
</table>
<table>
<tr>
<td>[+ $a[2][$col] +]</td>
</tr>
</table>
<table>
<tr>
<td>before[+ $a[$row][0] +]</td>
</tr>
</table>
<table>
<tr>
<td>before[+ $a[2][$col] +]</td>
</tr>
</table>
<table>
<tr>
<td>[+ $a[$row][0] +]after</td>
</tr>
</table>
<table>
<tr>
<td>[+ $a[2][$col] +]after</td>
</tr>
</table>
<table>
<tr>
<td>before[+ $a[$row][0] +]after</td>
</tr>
</table>
<table>
<tr>
<td>before[+ $a[2][$col] +]after</td>
</tr>
</table>
<table>
<tr>
<td>[+ $c[$row] +]</td>
</tr>
</table>
<table>
<tr>
<td>[+ $c[$col] +]</td>
</tr>
</table>
<table border="1" width="100%">
<tr>
<td>[+ $a[$row][$col] +] </td>
</tr>
</table>
<table border="4">
<tr>
<td>
<table>
<tr>
<td>[+ $b[$row][$col] +] </td>
</tr>
</table>
[+ $a[$row][$col] +] </td>
</tr>
</table>
<table border="5" width="100%">
<tr>
<td>[+ $b[2][$col] +]</td>
</tr>
<tr>
<td>[+ $a[2][$col] +] </td>
</tr>
</table>
<table border="6" width="100%">
<tr>
<td>[+ $a[$row+1][0] +]</td>
</tr>
<tr>
<td>[+ $a[$row][0] +] </td>
</tr>
</table>
<table border="6.1" width="100%">
<tr>
<td>[+ $a[$rows+1][0] +]</td>
</tr>
<tr>
<td>[+ $a[$rows][0] +] </td>
</tr>
<tr>
<td>[+ $rows +] </td>
</tr>
</table>
<table border="7">
<tr>
<TD BGCOLOR="[+ ($row & 1)?(($col&1)?'#7CFC00':'#A4A4B4'):(($col&1)?'#FFFF00':'#F4A460') +]">[+ $a[$row][$col] +] </td>
</tr>
</table>
[- $a[0][1] = 'a1/2' ; -]
<table border="8">
<tr>
<TD BGCOLOR="#F4A460">[+ $a[$row*2][$col*2] +] </td>
<TD BGCOLOR="#FFFF00">[+ $a[$row*2][$col*2+1] +] </td>
</tr>
<tr>
<TD BGCOLOR="#A4A4B4">[+ $a[$row*2+1][$col*2] +] </td>
<TD BGCOLOR="#7CFC00">[+ $a[$row*2+1][$col*2+1] +] </td>
</tr>
</table>
[- $a[0][1] = undef ; -]
[-
undef @regs ;
undef @kats ;
$regs[0]{Id} = 'Pfalz' ;
$regs[1]{Id} = 'Rheinhessen' ;
$kats[0]{Id} = 'Kultur' ;
$kats[1]{Id} = 'Sport' ;
-]
<table border="9" width="100%">
<tr>
<td><table border="10">
<tr>
<td valign="top">
<a href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
</tr>
</table>
</td>
<td><table border="11">
<tr>
<td valign="top"><p align="left">
<a href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
[-
$kats[2]{Id} = 'Veranstaltungen' ;
$kats[3]{Id} = '' ;
-]
<table border="12" width="100%">
<tr>
<td><table border="13">
<tr>
<td valign="top">
[- print LOG "row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
[- print LOG "1row= $row regs=$regs[0]{Id}\n" ; $cmp = $regs[0]->{Id} ; print LOG "2row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
[- while (($k, $v) = each (%{$regs[0]})) { print LOG "$v=$k;\n" ; } -]
[$if ($cmp || '') ne '' $]
<a href="inhalt.htm?Region=[+ do { print LOG "row= $row regs=$regs[0]{Id}\n" ; $regs[$row]{Id} } +]">[+$regs[$row]{Id}+]</a></td>
[$endif$]
</tr>
</table>
</td>
<td><table border="14">
<tr>
<td valign="top"><p align="left">
[- print LOG "row= $row regs=$kats[0]{Id}\n" ; 1 ; -]
[- $cmp = $kats[$row]{Id} -]
[$if ($cmp || '') ne '' $]
<a href="inhalt.htm?Kategorie=[+$kats[$row]{Id}+]">[+$kats[$row]{Id}+]</a></p>
[$endif$]
</td>
</tr>
</table>
</td>
</tr>
</table>
[-
# build tight loop table with array data, multidimensional 5x6
@array = sort ("Hello", "World", "2000", "Hello", "World", "2000");
@multi = (\@array, \@array, \@array, \@array, \@array);
-]
<table>
<tr bgcolor="[+ $row % 2?'gray':'white' +]">
<td align="center"><font size="+1">[+ $multi[$row][$col] +]</font></td>
</tr>
</table>
<table border="14"><tr><td>[+ $a[$row][0] +]</td></tr></table>
<table border="15"><tr><td>[+ $a[2][$col] +]</td></tr></table>
<table border="16"><tr><td>[+ $a[$row][$col] +]</td></tr> </table>
<table border="17">
<tr>
<td>[+ $a[$icon_height=$row][0] +]</td>
<td>
[- $icon_width = 5 ; -]
<IMG
[$ if (($server_type eq "iii")) $]
SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ else $]
SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
[$ endif $]
[$ if ($badge eq "iit") $]
ALT="iit logo"
[$ else $]
ALT="iii logo"
[$ endif $]>
</td>
</tr>
</table>
<table>
<tr>
<td>[+ $a[$row][0] +]</td>
</tr>
</table>
<table>
<tr>
<td>[+ $a[2][$col] +]</td>
</tr>
</table>
</body>
</html>