#!/usr/bin/perl use CGI qw(:standard); print header(); print ""; print ""; print "

LIST OF ALL REGISTERED PARTICIPANTS"; print "

"; print "

"; $i=1; dbmopen %paricipant,"data/dbparicipant",0666; @keys=keys %paricipant; $noOfKeys=$#keys+1; # last index + 1 print "NUMBER OF PARTICIPANTS = $noOfKeys

"; print ""; print ""; print "
Email OF PARTICANT (Parameter Name) Values(Parameter Value(s))"; foreach $email(keys %paricipant) { $value = $paricipant{$email}; @field = split(/&/,$value); print "
$email "; print"
"; foreach $field (@field) { #print "Field --> $field";print "
"; ($name, $value) = split(/=/, $field); print "
$name = $value"; #print "NAME VALUE PAIRS --> $name = $value. "; print"
"; } print"
"; } dbmclose %paricipant; print "
"; print ""; print "";