A simple integer-validation program. : Digit « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Digit

A simple integer-validation program.

    
#!/usr/local/bin/perl 

print ("Enter a number:\n"); 
$number = <STDIN>; 
chop ($number); 
if ($number =~ /^-?\d+$|^-?0[xX][\da-fa-F]+$/) { 
    print ("$number is a legal integer.\n"); 
} else { 
    print ("$number is not a legal integer.\n"); 
}








Related examples in the same category

1.Determine if a string has a digit.
2.Check for no digit
3.Check for digit
4.if ($text =~ /(\d+)/) {print "Here's the number of apples: $1.\n";}
5.if ($text =~ /\D/) {print "It's not a number.";}
6.if ($text =~ /^[+-]\d+\.\d*$/) {print "It's a number.";}
7.if ($text =~ /^\d+$/) {print "It's a number.";}
8.Get all numbers
9.Match the one or more alphanumerics.
10.Match numbers
11.Matching Any Letter or Number
12.Match one or zero alphanumerics followed by a single space character