Mega Code Archive

 

Categories / Perl / Regular Expression

 

Check end

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