On Thu, 2 Dec 2004 17:19:00 -0500, Dave Gray <[EMAIL PROTECTED]> wrote:
> > Is there a more compatible way to check my overly-long string?
> 
> How about:
> 
> die "syntax error\n" if $msgs =~ /[^\d,]/;

Oh, I missed a requirement... after the above code:

while ($msgs =~ /(\d+)/g) {
  die "syntax error\n" if $1 > 1000000;
}

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>



Reply via email to