On Wed, 26 Feb 2003 16:51:49 -0500, [EMAIL PROTECTED] (Donna Runyon) wrote:
>Is there a perl function to check if a value is alphabetic or numeric?
#!/usr/bin/perl
print is_numeric(10),"\n";
print is_numeric('3rd'),"\n";
sub is_numeric {
no warnings;
use warnings FATAL => 'numeric';
return defined eval { $_[ 0] == 0 };
}
Also check out the Regex::Common module.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
