$tabmode = default

Display an two dimensional array with one, two and three columns !
Please take a look at the source in your browser to see the difference
[- 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' ;
$a[1][[0] = '2/1' ;
$a[1][[1] = '2/2' ;
$a[2][[0] = '3/1' ;
$a[2][[1] = '3/2' ;
$a[2][[2] = '3/3' ;

$tabmode = default

[+ $a[$row][0] +]

[+ $a[2][$col] +]

before[+ $a[$row][0] +]

before[+ $a[2][$col] +]

[+ $a[$row][0] +]after

[+ $a[2][$col] +]after

before[+ $a[$row][0] +]after

before[+ $a[2][$col] +]after

[+ $c[$row] +]

[+ $c[$col] +]

[+ $a[$row][$col] +]

[+ $b[$row][$col] +] [+ $a[$row][$col] +]

[+ $b[2][$col] +]

[+ $a[2][$col] +]

[+ $a[$row+1][0] +]

[+ $a[$row][0] +]

[+ $a[$rows+1][0] +]

[+ $a[$rows][0] +]

[+ $rows +]

[+ $a[$row][$col] +]

[- $a[0][1] = 'a1/2' ; -]

[+ $a[$row*2][$col*2] +]	[+ $a[$row*2][$col*2+1] +]
[+ $a[$row*2+1][$col*2] +]	[+ $a[$row*2+1][$col*2+1] +]

[- $a[0][1] = undef ; -] [- undef @regs ; undef @kats ; $regs[0]{Id} = 'Pfalz' ; $regs[1]{Id} = 'Rheinhessen' ; $kats[0]{Id} = 'Kultur' ; $kats[1]{Id} = 'Sport' ; -]

[+$regs[$row]{Id}+]

[+$kats[$row]{Id}+]

[- $kats[2]{Id} = 'Veranstaltungen' ; $kats[3]{Id} = '' ; -]

[$endif$] [- 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 '' $] [+$regs[$row]{Id}+]

[- print LOG "row= $row regs=$kats[0]{Id}\n" ; 1 ; -] [- $cmp = $kats[$row]{Id} -] [$if ($cmp || '') ne '' $] [+$kats[$row]{Id}+] [$endif$]

[- # build tight loop table with array data, multidimensional 5x6 @array = sort ("Hello", "World", "2000", "Hello", "World", "2000"); @multi = (\@array, \@array, \@array, \@array, \@array); -]

[+ $multi[$row][$col] +]