# One Way my $table_dat = undef; foreach my $ell (@elements){ $table_dat.=Tr(td(b("Label")),td($ell)); # Whatever you need to ou +tput. } print table($table_dat); # Second way use CGI qw/:standard *table/; # Import start_table and end_table print start_table # Data processing here to spit out rows and cells... foreach my $ell (@elements){ print Tr(td(b("Label")),td($ell)); } print end_table
In reply to Re: Re: Yet Another Stupid CGI Question
by shotgunefx
in thread Yet Another Stupid CGI Question
by chaoticset
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |