This is not working as I expected:
if(validate('abc.com'))
{ print "true"; }
else
{ print "false"; }
-rkl
> On Fri, Oct 10, 2003 at 12:49:51AM -0700, [EMAIL PROTECTED] wrote:
>> I couldn't get it to work.
>
> Whoops -->
>
> sub validate {
> local $_ = shift;
> return( length == 4 and
> tr/.// == 1 and
> /^[[:alpha:]]/ )
> }
>
> --
> Steve
>
-----------------------------------------
eMail solutions by
http://www.swanmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
