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>
