Mega Code Archive

 

Categories / Perl / Regular Expression

 

Check for digit

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