generating tables and lists dynamically using cgi.pm 1

[ailse]

Hi -

I have a cgi program that returns two sets of results to the user. At the moment they are simply printed in the browser, but I would like to know how to format them so they appear in tables and lists as required.

The first result is a simple array of elements - I want to list these elements as a bullet list. The second set of results is an array of arrays, so I would like each array in the array to be returned as a row of a table, with each individual element appearing in a single cell...

any advice greatly appreciated

 

[arcnon]

BASIC IDEA

#a list

print "<ul>";

foreach $item (@data){
print "<li>$item";
}
print "</ul>";

#a table

print "<table>";

foreach $item (@data){ #ROWS
print "<tr>";
foreach $item2 (@data2){
print "<td>$item2</td>"; #COLUMNS
}
print "<tr>";
}
print "</table>";

 

[ChrisHunt]

Alternatively, using cgi.pm, you can do it like this:

use CGI qw/:standard /;

# a list
print ul(li(\@data));

# a table
foreach $n (@data) {
   push(@rows,td(\@data2));
}
print table(Tr(\@rows));

-- Chris Hunt

http://www.mcgonagall-online.org.uk

http://www.napitalia.org.uk

http://www.leicesteryha.org.uk

 

[ailse]

chris -- cheers for that, but I am using the object oriented method of cgi.pm - can I still use similar code to create the list and table?

 

[ChrisHunt]

Sure.

$q = new CGI;
print $q->ul($q->li(\@data));

-- Chris Hunt

http://www.mcgonagall-online.org.uk

http://www.napitalia.org.uk

http://www.leicesteryha.org.uk

 

[ailse]

thanks