Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. If ($text =~ ^[+-]d+ d$) {print Its a number ;}
$text = "-3.1415";
if ($text =~ /^[+-]\d+\.\d*$/) {print "It's a number.";}