Good afternoon,
Can some one point out where I am off?
use CGI qw/:standard/;
@fields = param(); # I think it returns a list of all the fields,
# maybe we want to inslist a hash to get the values.
foreach (@fields){
if ( $_ ~= /(|\?+|\d)/ ) {
# match "" or ??? or 0
# do something .... blank field found!
}
}
------------------what I want to replace------
my $contact = param("cnt");
if (not defined $contact) {$contact = ""; }
my $phone = param("ph");
if (not defined $phone) {$phone = ""; }
my $address = param("adr");
if (not defined $address) {$address = ""; }
my $baths = param("bth");
if (not defined $baths) {$baths = "0"; }
my $stove = param("stv");
if (not defined $stove) {$stove = "???"; }
.....ect...
*====================================================*
* Cora Connection Your West African Music Source *
* http://www.coraconnection.com/ *
* Resources, Recordings, Instruments & More! *
*====================================================*
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
