Mega Code Archive

 

Categories / Perl / Regular Expression

 

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

$text = "345"; if ($text =~ /^\d+$/) {print "It's a number.";}