Mega Code Archive

 

Categories / Perl / Regular Expression

 

Check for no digit

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