How can I generate HTML tables in Perl?

Question

I need to create a 2 tables in HTML format. Each has 5 rows:

1st Table

1st row has FRUITS in it, occupying all columns
2nd row has January(month), occupying all columns
3rd row has names of some 6 fruits (apple, orange, grapes,...)These names do not change. so this row has 6 columns
4th row has rates for each fruit ( 10,20,30..) so this has 6 columns.
5th row has corresponding message for each fruit showing as Available or not.

2nd Table

If it is available the background color for the cell should be green and if not RED.

1st row has VEGETABLES in it, occupying all columns
2nd row has February(month), occupying all columns
3rd row has names of some 6 vegetables (tomato, potato..)These names do not change. so this row has 6 columns
4th row has rates for each vegetable ( 10,20,30..) so this has 6 columns.
5th row has corresponding message for each vegetable showing as Available or not.If it is available the background color for the cell should be green and if not RED.

All this data is read from a file having a particular format, it is

<name of fruit/vegetable> price <available or not>

The names of fruits and vegetable do not change , it will be same for both the tables. However, it might be possible that data for a particular fruit/vegetable is not present. if it is not present the column for that should show N/A with white background.

I cannot use MIME:Lite for this. Need to use print <<ENDHTML;

Where would MIME::Lite even come in to the picture? Anyway, catb.org/~esr/faqs/smart-questions.html — Sinan Ünür
– Sinan Ünür, Commented Mar 19, 2010 at 13:09
What have you tried so far? There must be zillions of examples of this in Google. Searching for "html table perl" has this as the third hit: osstips.wordpress.com/2005/12/13/… — brian d foy
– brian d foy, Commented Mar 19, 2010 at 16:17

GreenAsJade · Accepted Answer · 2018-05-30 13:36:10Z

1

use HTML::TagTree;
use strict;

my $html = HTML::TagTree->new('html');
$html->head->title('Fruits');

my $table = $html->body->table();
$table->tr->td('Fruits','colspan=6');
$table->tr->td('February','colspan=6');
my @fruits = qw(apples bananas coconut dates figs guava);
my @rates = (10,20,30,40,50,60);
my $tr_fruits = $table->tr;
my $tr_rates = $table->tr;
my $tr_available = $table->tr;
for (my $col=0; $col<6; $col++) {
   $tr_fruits->td($fruits[$col]);
   $tr_rates->td($rates[$col]);
   # Randomly make available
   my $available = int(rand(1000)/500 + .5);
   if ($available) {
      $tr_available->td('Available','style=background-color:green');
   } else {
      $tr_available->td('Out of Stock','style=background-color:red');
   }
}
print $html->print_html();

edited May 30, 2018 at 13:36

GreenAsJade

14.7k11 gold badges68 silver badges103 bronze badges

answered Jul 13, 2014 at 3:11

user3434522

273 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How can I generate HTML tables in Perl?

1st Table

2nd Table

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1st Table

2nd Table

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related