#!/usr/bin/perl
use CGI qw(:standard);
print header();
print "";
print "";
print "LIST OF ALL PARTICIPANTS";
print "
";
print "
";
print "Code written in perl-cgi programming ";
dbmopen %guest,"data/dbguest",0666;
print "
";
print "";
print "| NAME OF PARTICANT (Parameter Name) | Values(Parameter Value(s))";
foreach $ipfirstname(keys %guest) {
$value = $guest{$ipfirstname};
@field = split(/&/,$value);
print " |
| $ipfirstname | ";
print"";
foreach $field (@field) {
#print "Field --> $field";print "
";
($name, $value) = split(/=/, $field);
print "- $value";
#print "NAME VALUE PAIRS --> $name = $value. "; print"
";
}
print" ";
}
dbmclose %guest;
print " |
";
print "";
print "";