TAG( <optional hash>, <scalar>|<array ref> )
[download]

For example, to print a table row where each element is the same width, you can do:

print $cgi->table( 
          $cgi->Tr( 
               $cgi->td(-width=>"20%", [1,2,3,4,5])
          )
      );
[download]

print $cgi->table(
          $cgi->Tr( [
              $cgi->td(-width=>"10%", 1 ),
              $cgi->td(-width=>"20%", 2 ),
              $cgi->td(-width=>"30%", 3 ),
              $cgi->td(-width=>"20%", 4 ),
              $cgi->td(-width=>"20%", 5 )
          ] )
      );
[download]

There's numerous ways to improve this code with maps and other modules, but that's the simpliest way of do this. If this code gets too complicated, you may want to look at the various template modules (HTML::Template, HTML::Mason, Template Toolkit 2), which allow you to write the HTML for the table explicitly, then insert the values from your perl code dynamically.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important

Davis, That did it...thanks.... I think in the future I will use HTML::Template, just seems alot easier.


Brett

It would appear the code you posted has some syntax errors,
but the problem is the fact that you're passing Tr() an array of references. Tr would produce a separate row for each element in the array you pass it.
If you pass a single value, like so:

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

print table({-border=>'1'},
                     Tr(
                       td({-width=>'20%'},'col1'),
                       td({-width=>'80%'},'col2')
                     )
                 );
[download]

You should find that solves your problem, (I've removed the square brackets that created the anonymous arrayref).
davis

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

my @table_rows;

push @table_rows, th({-width=>"20%"}, "Hello") .
                  th({-width=>"20%"}, "There") .
                  th({-width=>"60%"}, "World");
push @table_rows, th({-width=>"20%"}, "The") .
                  th({-width=>"20%"}, "Second") .
                  th({-width=>"60%"}, "Line");

print table(Tr(\@table_rows));
[download]

<table>
<tr>
        <th width="20%">Hello</th>
        <th width="20%">There</th>
        <th width="60%">World</th>
</tr>
<tr>
        <th width="20%">The</th>
        <th width="20%">Second</th>
        <th width="60%">Line</th>
</tr>

</table>
[download]

it seems that if I have multiple columns in the same row, I cannot set the width's for each column

You need to see this in the whole table. A row is not independent from the other rows, plus the setting of width of a row might not work when the content is too wide plus you might run into the browser hell...

Sorry, if this isn't a big help, but I think your problems are with HTML and not perl.

Regards...	Stefan
you begin bashing the string with a +42 regexp of confusion

cLive ;-)