Embperl Examples - Dynamic Tables
This is a example of using the table tag to show the array @arr = ( 'A', 'B', 'C')
[- @arr = ( 'A', 'B', 'C') ; -]
This is a example of using the table tag in embperl to show the environment
[- @k = keys %ENV -]
Using $row (one value per row)
  
    | Row | Var | Content | 
    
        | [+ $i=$row +] | [+ $k[$row] +] | [+ $ENV{$k[$i]} +] | 
 
Using $col (one value per column, only one row)
[-$maxcol=99-]
    
        | [+ $i=$col +] | [+ $k[$col] +] | [+ $ENV{$k[$i]} +] | 
 
Using $cnt and $maxcol (three values per row)
[-$maxcol=3-]
    
        | [+ $i=$cnt +] | [+ $k[$cnt] +] | [+ $ENV{$k[$i]} +] | 
 
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
[-
   $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' ;
   $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 
$tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 
[- $tabmode=3 + 48 ; $maxcol = 4; $maxrow = 4 -]
 $tabmode=1 + 32 ; 
[- $tabmode=1 + 32 ; -]
HTML::Embperl (c) 1997-1998 G.Richter