Check for digit : Digit « Regular Expression « Perl






Check for digit

    

#!/usr/bin/perl -w

foreach $patt (@ARGV) {
    # Check for digit.
    if ($patt =~ /\d/) {
        print "\tFound a digit in \"$patt\".\n";
    }

}

   
    
    
    
  








Related examples in the same category

1.Determine if a string has a digit.
2.Check for no digit
3.if ($text =~ /(\d+)/) {print "Here's the number of apples: $1.\n";}
4.if ($text =~ /\D/) {print "It's not a number.";}
5.if ($text =~ /^[+-]\d+\.\d*$/) {print "It's a number.";}
6.if ($text =~ /^\d+$/) {print "It's a number.";}
7.A simple integer-validation program.
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