Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. A simple integer-validation program
#!/usr/local/bin/perl 
print ("Enter a number:\n"); 
$number = ; 
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"); 
}