Letting the regex alternation do the heavy lifting seems to be a bit faster. Tested with a 1235 line C program cat'ed together 20 times.

use strict;
use warnings;

use Benchmark q{cmpthese};

my @prims = qw{ int char long double static };

my $inFile = q{xxx.c};
open my $inFH, q{<}, $inFile
   or die qq{open: $inFile: $!\n};
my $outFile = q{/dev/null};
open my $outFH, q{>}, $outFile
   or die qq{open: $outFile: $!\n};

cmpthese(
   -10,
   {
       JohnGG   => sub
          {
              seek $inFH, 0, 0;
              my $rxPrims = do
                 {
                     local $" = q{|};
                     qr{\b(@prims)\b};
                 };
              while ( <$inFH> )
              {
                  next unless my @found = m{$rxPrims}g;
                  print $outFH qq{Found @found on line $.\n};
              }
          },
       Narveson => sub
          {
              seek $inFH, 0, 0;
              while ( <$inFH> ) {
                  for my $word ( m{\b(\w+)\b}g ) {
                      if (grep {$word eq $_} @prims) {
                          print $outFH qq{Found $word on line $.\n};
                      }
                  }
              }
          },
   }
   );

close $inFH
   or die qq{close: $inFile: $!\n};
close $outFH
  or die qq{close: $outFile: $!\n};

[download]

The benchmark output.

           Rate Narveson   JohnGG
Narveson 1.39/s       --     -63%
JohnGG   3.78/s     173%       --

[download]

I hope this is of interest.

Cheers,

JohnGG

In reply to Re^3: Pattern match array by johngg
in thread Pattern match array by aennen

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.