GRICHTER / HTML-Embperl-1.2b11 / test / html / table.htm 
<html>
<head>
<title>HTML table tag in Embperl</title>
</head>

<body>

<table>
    <tr>
        <td>[+ $c[$row][$col] +] </td>
    </tr> 
</table>


<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 border="2" width="100%">
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

<table border="2" width="100%">
    <tr>
        <th>1</th>
        <th>2</th>
        <th>3</th>
    </tr> 
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

<table border="2" width="100%">
    <tr>
        <th>[+ $b[2][$col] +]</th>
    </tr> 
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

<table>
    <tr>
        <td>
            <table>
    		<tr>
                    <td>[+ $b[$row][$col] +] </td>
    		</tr> 
	    </table>

        [+ $a[$row][$col] +] </td>
    </tr> 
</table>

<table border="3" width="100%">
    <tr>
        <td>[+ $b[2][$col] +]</td>
    </tr> 
    <tr>
        <td>[+ $a[2][$col] +] </td>
    </tr> 
</table>

<table border="4" width="100%">
    <tr>
        <td>[+ $a[$row+1][0] +]</td>
    </tr> 
    <tr>
        <td>[+ $a[$row][0] +] </td>
    </tr> 
</table>


[-

undef @regs ;
undef @kats ;

$regs[0]{Id} = 'Pfalz' ;
$regs[1]{Id} = 'Rheinhessen' ;

$kats[0]{Id} = 'Kultur' ;
$kats[1]{Id} = 'Sport' ;

-]

    <table border="0" width="100%">
        <tr>
            <td><table border="0">
                <tr>
                    <td valign="top">
                    <a href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
                </tr>
            </table>
            </td>
            <td><table border="0">
                <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="0" width="100%">
        <tr>
            <td><table border="0">
                <tr>
                    <td valign="top">
                    [- $cmp = $regs[$row]{Id} -]
                    [$if ($cmp || '') ne '' $] 
                    <a href="inhalt.htm?Region=[+$regs[$row]{Id}+]">[+$regs[$row]{Id}+]</a></td>
                    [$endif$]
                </tr>
            </table>
            </td>
            <td><table border="0">
                <tr>
                    <td valign="top"><p align="left">
                    [- $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>


<hr><P>$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 <P>
[- $tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 -]

<table>
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

<hr><p> $tabmode=1 + 32 ; <p>
[- $tabmode=1 + 32 ; -]

<table>
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
optDisableTableScan is set now to: [+ $optDisableTableScan = 1 +] <BR>
optDisableTableScan is now: [+ $optDisableTableScan +] <BR>

<table border="2" width="100%">
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

optDisableTableScan is now: [+ $optDisableTableScan +] <BR>
optDisableTableScan is set now to: [+ $optDisableTableScan = 0 +] <BR>
optDisableTableScan is now: [+ $optDisableTableScan +] <BR>

<table border="2" width="100%">
    <tr>
        <td>[+ $a[$row][$col] +] </td>
    </tr> 
</table>

</body>
</html>