By "my method" I meant using capturing parentheses and $1 to retrieve the match, instead of $#-. The dispatch table is just the next step and not tied to the method of finding the value to act on.

But regardless of that, what's the problem with a long dispatch table? You don't actually need to store the actions as anonymous subs of course, if you have several values which correspond to the same action you just use references to subs which you define elsewhere. This is certainly more manageable than endless if-elsif blocks. Sure, it's no silver bullet (e.g. if you only have three actions which each map to 1000 possible keywords you probably wouldn't go that way), but without knowing more about the OPs requirements it's impossible to tell how appropriate the solution is.

Maybe I'm not understanding your objection correctly though, would you care to give a solution that's more manageable for 5000 values?

Update: here's an example of how you could set up a dispatch table with lots of values matching to less (and potentially longer) subroutines:

my @v1=qw(horse hearse house hose);
my @v2=qw(fax fix fox flux);
my @v3=qw(orange lemon melon plum apple banana rama);

my $regex = join("|",@v1,@v2,@v3);

sub one {
  print "Begins with an h\n";
}

sub two {
  print "Oh those Xes\n";
}

sub three {
  print "Yummy!\n";
}
my %table;
@table{@v1,@v2,@v3}=((\&one)x scalar(@v1),
                    (\&two)x scalar(@v2),
                    (\&three)x scalar(@v3));

if (my ($match) = $input =~ m/($regex)/) {
  &{$table{$match}};
}

[download]

Seems manageable to me, even if you imagine this expands by a considerable amount.


There are ten types of people: those that understand binary and those that don't.

In reply to Re^4: Finding out which of a list of patterns matched by tirwhan
in thread Finding out which of a list of patterns matched by lemnisca

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.