best way to create a table in Perl

crmpicco · #1 (**permalink**) June 20th, 2006, 06:39 AM

Code:

print "<table border=\"1\" bordercolor=\"#000000\">";
    print "<tr>";
        print "<td>";
            print $weePit;
        print "</td>";
    print "</tr>";
print "</table>";

Is this the best way to create a table in Perl?

(i am a MAJOR nooB!)

:)

Picco

www.crmpicco.co.uk
www.ie7.com

ciderpunx · #2 (**permalink**) June 22nd, 2006, 11:15 AM

crmpicco - there's more than one way to do it - just printing it may be ok, though you may want to use a heredoc thus:

print <<EOF
<table style="border:1px solid #000;">
  <tr>
    <td>$WeePit</td>
  </tr>
</table>

EOF

# more code

You could use the CGI.pm way:

use strict;
use CGI;
my $q = new CGI;
print $q->header( "text/html" ),
$q->start_html( -title => "Table Example" ),
    $q->h1( "Table Example" ),
    $q->p( "This is a table.â€ ),
    $q->table( {style => 'broder:1px solid #000;'},
        $q->Tr( {align => "center"},
            [ $q->th( [ 'Heading 1', 'Heading Two', 'Heading 3' ] ),
              $q->td( ['x','y',$WeePit] ) ] )
        )
    ),
$q->end_html;

You could use HTML::Template, and a template like this:

<html>
<head>
  <title>Table Example</table>
</head>
<body>
  <table style="border:1px solid #000;">
    <tr>
      <td><TMPL_VAR NAME='WeePit'></td>
    </tr>
  </table>
</body>
</html>

I'd probably stick with just using print for now, until you have a better handle on perl.

--
Don't Stand on your head - you'll get footprints in your hair
                                           http://charlieharvey.org.uk
                                              http://charlieharvey.com

crmpicco · #3 (**permalink**) November 21st, 2006, 08:45 AM

thanks cyberpunx, much appreciated

www.crmpicco.co.uk
www.ie7.com

Need to download code?

Navigation