Printing All Parameters

#!/opt/perl/bin/perl

use CGI qw(:standard);

print header(),start_html();

# Loop through the parameter names

foreach $key (param()) {

my $value = param($key); #Get the value for the name

print "$key = $value<BR>\n";

}

print end_html();

Previous slide

Next slide

Back to first slide

View graphic version