Help for this page

Select Code to Download


  1. or download this
    use Scalar::Util 'looks_like_number';

if (0 != substr($var,0,1) and looks_like_number($var)) {
    # it's a number
}
  2. or download this
    use Scalar::Util 'looks_like_number';

if ($var !~ /^-?0/ && looks_like_number($var)) {
    # it's a number
}