in reply to Re: Flag variables
in thread Flag variables

What this code is doing is building a delayed action dispatch table. Whenever you need to look a variable up in an array, you should consider using a hash. That is exactly their forte. 

my %lookup = ( 
    foo=>\&fooaction, 
    bar=>\&baraction, 
    qux=>\&quxaction 
);
if (exists $lookup{$var}) {
    $lookup{$var}->();
}
else {
    #do the default or exception handling here.
}

[download]

It cleaner and clearer to read, uses loads less variables, is much easier to maintain and extend and more efficient to boot.

If brevity is compatible with your mindset, then the if/else can become 

&{ $lookup{$var} || $default_subref }->( parms );

[download]
Examine what is said, not who speaks.
1) When a distinguished but elderly scientist states that something is possible, he is almost certainly right. When he states that something is impossible, he is very probably wrong.
2) The only way of discovering the limits of the possible is to venture a little way past them into the impossible
3) Any sufficiently advanced technology is indistinguishable from magic.
Arthur C. Clarke.

Replies are listed 'Best First'.
Re: Re: Re: Flag variables
by KPeter0314 (Deacon) on Mar 03, 2003 at 19:58 UTC
    Wow! KPeter0314 bows to a Saint

    Looked at this for a couple moments before it really hit me what was happening. I use hashes regularly in my code but never quite like this. Brilliant and slick. I expect a hash lookup is going to be quite efficient. Especially since this turns the problem on its ear and does a hash lookup of the value to a small result set.

    Using the hash reference to return the sub name that you end up executing is my favorite part. (now isn't that a sentence)

    -Kurt

[reply]

      Using the hash reference to return the sub name...

      It's worth pointing out that it doesn't actually return the name of the sub, but rather a coderef for the sub.

      Whilst you could name the subs with the same name as the value used to look them up, and then avoid the need to use the hash at all, that would be an example of using symbolic references with all the inherent dangers that implies.

      By storing and looking up a coderef to the action subroutines, you avoid the possibility of attempting to invoke a non-existant subroutine if $var has an unexpected value and more importantly, avoid the possibility of invoking one of the potentially dangerous built-ins if the contents of $var has been deliberately tampered with.

      Examine what is said, not who speaks.
      1) When a distinguished but elderly scientist states that something is possible, he is almost certainly right. When he states that something is impossible, he is very probably wrong.
      2) The only way of discovering the limits of the possible is to venture a little way past them into the impossible
      3) Any sufficiently advanced technology is indistinguishable from magic.
      Arthur C. Clarke.
[reply]

In Section Seekers of Perl Wisdom