How to do tables

kmullin5016 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to do tables by davorg (Chancellor) on Jan 23, 2007 at 15:06 UTC
It's all in the CGI.pm docs, but in summary: `table` to create a table `Tr` to create a table row `td` to create a cell Note, `Tr` rather than `tr` to avoid confusion with the `tr///` operator. See also the example in the section The Distributive Property of HTML Shortcuts. -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: How to do tables by Melly (Chaplain) on Jan 23, 2007 at 15:18 UTC
And, for later, HTML Tables - populating TD from an array might be useful... `map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2$d$e+$a,$e2 -$d2+$b);$c=$d2+$e2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20` [download] Tom Melly, pm@tomandlu.co.uk	[reply] [d/l]
Re: How to do tables by EvanK (Chaplain) on Jan 23, 2007 at 15:19 UTC
first I would advise to take a look at the (current) CPAN docs for CGI. You might find particularly useful the "CREATING STANDARD HTML ELEMENTS" section, as it provides this example: `print table({-border=>undef}, caption('When Should You Eat Your Vegetables?'), Tr({-align=>CENTER,-valign=>TOP}, [ th(['Vegetable', 'Breakfast','Lunch','Dinner']), td(['Tomatoes' , 'no', 'yes', 'yes']), td(['Broccoli' , 'no', 'no', 'yes']), td(['Onions' , 'yes','yes', 'yes']) ] ) );` [download] Update: A much better monk already beat me to the punch, and with a more detailed response to boot :) __________ The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it. - Terry Pratchett	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: How to do tables by Rhandom (Curate) on Jan 23, 2007 at 17:18 UTC
My post is based out of curiosity. There are three camps (at least): Those that hard code their html inline in their perl. Those that use CGI.pm to generate their html. Those that use a templating system to fill values into an existing html template. All three choices have their benefits. They also each have downsides. These choices all cover a scale that has raw execution speed on one end and good design (separation of content) on the other end. Since the HTML generation aspects of CGI.pm fall in the middle of this scale, I am always interested to know what factors are driving the decision to use CGI.pm over a templating system or just raw html. So that was a long way to ask: why have you chosen to use CGI.pm over either raw html or a templating system. If the answer is "I'm not sure" then a would suggest using a templating system - even if it means that the html template is inline as a variable in the code. my @a=qw(random brilliant braindead); print $a[rand(@a)];	[reply]
Re^2: How to do tables by Fletch (Bishop) on Jan 23, 2007 at 20:06 UTC
One thing I've done a few times (when not using Mason (or recently, other not-Perl not-CGI mechanisms)) is to let the TT source ride along after the `__END__` marker of the CGI's source. Then you just `my $tmpl_text = do { local $/; <DATA> };` to slurp it in before handing it to `$tmpl->process( \$tmpl_text )`; You could also get fancy with Inline::File and store separate templates after separate markers, but at that point you're probably approaching being better off storing them elsewhere as separate files.	[reply] [d/l] [select]
Re^3: How to do tables by Rhandom (Curate) on Jan 23, 2007 at 21:18 UTC
The CGI::Ex::App framework which I use allows you to either return a file name or a reference to a scalar containing the template. It then passes the value along to CGI::Ex::Template which is Template Toolkit compatible and will process either a filename or a reference to a scalar. This allows for easy prototyping in a single file, and then the capability to move items out to separate files later. `sub main_file_print { 'my_content/my_script/main.html' } sub otherstep_file_print { return \ qq{<html> My template follows here. </html> }; }` [download] my @a=qw(random brilliant braindead); print $a[rand(@a)];	[reply] [d/l]