Create three table rows with the same attributes for each : HTML Table « CGI « Perl






  1. Perl
  2. CGI
  3. HTML Table

Create three table rows with the same attributes for each

   

#!/usr/bin/perl
use warnings;
use CGI::Pretty;
use strict;
print "Content-type: text/html\n\n";
my $cgi=new CGI;
print $cgi->table({-border=>1,-cellspacing=>3,-cellpadding=>3},
      $cgi->Tr({-align=>'center',-valign=>'top'}, [
      $cgi->th(["Column1","Column2","Column3"]),]),
      $cgi->Tr({-align=>'center',-valign=>'middle'}, [
      $cgi->td(["Red","Blue","Yellow"]),
      $cgi->td(["Cyan","Orange","Magenta"]),
      $cgi->td({-colspan=>3},["A wide row"]),]),
      $cgi->caption("An example table")
);








Related examples in the same category

1.Creating a Table
2.Output a HTML table