Mega Code Archive

 

Categories / Perl / Regular Expression

 

Check for a

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