Mega Code Archive

 

Categories / Perl / Regular Expression

 

If ($text =~ ^[+-]d+ d$) {print Its a number ;}

$text = "-3.1415"; if ($text =~ /^[+-]\d+\.\d*$/) {print "It's a number.";}