Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Open Source > Perl
|
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Perl section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old June 20th, 2006, 06:39 AM
Friend of Wrox
 
Join Date: Jan 2005
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default best way to create a table in Perl

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
__________________
_______________________
Ayrshire Minis - a Mini E-Community
http://www.ayrshireminis.com
http://www.crmpicco.co.uk
 
Old June 22nd, 2006, 11:15 AM
Friend of Wrox
 
Join Date: Dec 2003
Posts: 488
Thanks: 0
Thanked 3 Times in 3 Posts
Default

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
 
Old November 21st, 2006, 08:45 AM
Friend of Wrox
 
Join Date: Jan 2005
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default

thanks cyberpunx, much appreciated

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





Similar Threads
Thread Thread Starter Forum Replies Last Post
Create generic XSL Template to create table Venkatachalapathy XSLT 5 March 11th, 2008 07:49 AM
quicker way to create variables in perl - dynamic? crmpicco Perl 4 March 6th, 2007 07:53 AM
Create table from another table using ADO Kaustav Pro VB Databases 0 October 15th, 2005 05:44 AM
Create a table jmss66 Classic ASP Basics 1 July 19th, 2005 12:50 PM
cannot create table henpur BOOK: Beginning PHP, Apache, MySQL Web Development ISBN: 978-0-7645-5744-6 0 March 17th, 2005 01:10 PM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.