Help for this page

Select Code to Download


  1. or download this
    use strict; 
    use warnings;
    
    ...
         print "Number of patterns found for $patterns[$i] is $count[$i] \
    +n"; 
    }
    close $FILEHANDLE;
    
  2. or download this
             $count[$i]++ if /$patterns[$i]/;
    
  3. or download this
             $count[$i]++ and last if $_ ~~ $patterns[$i];
    
  4. or download this
             $count[$i]++ and last if /$patterns[$i]/;