Mega Code Archive

 

Categories / Perl / Regular Expression

 

Check for no a

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