[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] matching a $

Hello all!

I have been banging my head for a while on this and I have to ask for help.
I am trying to limit two form text fields to only letters and to return the
appropriate response. If I enter a number in either box I get a "thank you"
and I shouldn't. If someone has a moment I would really appreciate an
explination to what I'm doing wrong. 

thanks,
gene

if ( ($fname=~/(\D\S)*/)  &&
     ($lname=~/(\D\S)*/)  ) {

 print "<html><head><title></title></head><body
bgcolor='white'><center>Thank You!</center></body></html>";
  
} else {

 print "<html><head><title></title></head><body
bgcolor='white'><center>Sorry but the information was incorrect or
incomplete, please try again.</center></body></html>";
     
}




________________________________________________________________
Get FREE voicemail, fax and email at http://voicemail.excite.com
Talk online at http://voicechat.excite.com

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org