Re: Regular Expressions

[Jeff Pinyan]

On May 23, Randal L. Schwartz said:

>>>>>> "Jeff" == Jeff Pinyan <[EMAIL PROTECTED]> writes:
>
>Jeff>   if (length($x) and $x =~ /\D/) { fail() }
>
>Simpler...
>
>        if ($x =~ /\d/ and $x !~ /\D/) { winner! }

Yeah, I was thinking of that too.  merlyn++

-- 
Jeff "japhy" Pinyan      [EMAIL PROTECTED]      http://www.pobox.com/~japhy/
Are you a Monk?  http://www.perlmonks.com/     http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc.     http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter.         Brother #734
** I need a publisher for my book "Learning Perl's Regular Expressions" **