Ing. Branislav Gerzo wrote: > Mat Harris [MH], on Wednesday, December 1, 2004 at 12:19 (+0000) > contributed this to our collective wisdom: > > > > Is there any special function for that job? > > > personally I would use a rexex: > > if ($myunknownvalue =~ m/^\d*$/) > > personally I would change this regex to: > if ($myunknownvalue =~ m/^\d+$/) > because regex given matches also empty set ('')
Your regex matches the string "123\n", if it matters. A simpler approach is to invert the test: $var !~ /\D/; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>