foreach $var (@form_fields) {
print "$var: $field_vals{$var} <p>\n";
}
You could add:
@var_exclude = qw(var1 var2 var3);
$var_exclude_str = join("¦", @var_exclude);
foreach $var (@form_fields) {
print ("$var: $field_vals{$var} <p>\n") unless ($var =~/^($var_exclude_str)$/);
}
- Carl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@forminfo=split(/&/, $buffer);
foreach $info(@forminfo){
($field,$value)=split(/=/, $info);
$formvalues{$field}=$value;
}
Then you could loop throught the hash an print out your values like so.
foreach $key(keys %formvalues){
if($key ne "whatidontwantdisplayed"){
print "$key=$formvalues{$key}\n";
}
}