Re: Regular Expressions

[Randal L. Schwartz]

>>>>> "Jeff" == Jeff Pinyan <[EMAIL PROTECTED]> writes:

Jeff>   if (length($x) and $x =~ /\D/) { fail() }

Simpler...

        if ($x =~ /\d/ and $x !~ /\D/) { winner! }

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!