Mega Code Archive

 

Categories / Perl / Regular Expression

 

If ($text =~ D) {print Its not a number ;}

$text = "Hello!"; if ($text =~ /\D/) {print "It's not a number.";}