Re: Subroutines in Dispatch Tables

How about this line?

action => sub { print "aaa" },

...
$dispatch_tables[0]->{action};      # Wrong!
[download]

How can this be executed?

Comment on Re: Subroutines in Dispatch Tables Download Code

Replies are listed 'Best First'.
Re^2: Subroutines in Dispatch Tables by Marshall (Canon) on Sep 22, 2009 at 23:17 UTC
`#!/usr/bin/perl use warnings; use strict; my @dispatch_tables = ( { regex => qr/\w+/, action => sub { print "aaa\n" }, }, { regex => qr/\d+/, action => \&hello_me, }, ); $dispatch_tables[0]->{action}->(); $dispatch_tables[1]->{action}->( "1", "2" ); sub hello_me { print "hello me: @_\n"; } __END__ aaa hello me: 1 2` [download] Update: I guess it is obvious, but if you cycle down this action list running regex'es, the sub hello_me will not get executed because word chars are _a-z0-9 (all of the things can be in a Perl identifier). In other words all digits are "word characters". I don't know what the "full" application will be like but I would be thinking of using a couple of simple structures, this table being the simple "action" hash for a particular case. 'onlydigits' => sub {}, 'mixed_alphanum' => sub{}. There would another structure to decide what case/situation that you are in. Here it is obvious what the regex does, the actual app may not be so simple and an "extra" level of translation may provide some documentation value.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Subroutines in Dispatch Tables
by Marshall (Canon) on Sep 22, 2009 at 23:17 UTC

#!/usr/bin/perl

use warnings;
use strict;

my @dispatch_tables = (
  {
    regex  => qr/\w+/,
    action => sub { print "aaa\n" },
  },
  {
    regex  => qr/\d+/,
    action => \&hello_me,
  },
);  

$dispatch_tables[0]->{action}->();      
$dispatch_tables[1]->{action}->( "1", "2" );    

sub hello_me
{
   print "hello me: @_\n";
}
__END__
aaa
hello me: 1 2
[download]

I don't know what the "full" application will be like but I would be thinking of using a couple of simple structures, this table being the simple "action" hash for a particular case. 'onlydigits' => sub {}, 'mixed_alphanum' => sub{}. There would another structure to decide what case/situation that you are in. Here it is obvious what the regex does, the actual app may not be so simple and an "extra" level of translation may provide some documentation value.

[reply]
[d/l]