subroutine references

Why have I avoided sorting out subroutine references in my head for so long? The following has taken me about five minutes to get to grips with, and would have been incredibly useful in any of my previous projects....

my %comms = ( 'one' => \&subone,
              'two' => \&subtwo,
);

my $subref = $comms{'one'};
&$subref('item');
[download]

It still surprises me that Perl just keeps on making your job easier and easier the more you know about it.
ho hum, onwards.......

Comment on subroutine references Download Code

Replies are listed 'Best First'.
RE: subroutine references by merlyn (Sage) on Jul 14, 2000 at 18:37 UTC
Why the variable? `$comms{'one'}->('item');` [download] And if you're using 5.006, you can even drop out that arrow! -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
subroutine references by agoth (Chaplain) on Jul 14, 2000 at 18:53 UTC
fantastic :-), I'd tried: `$comms{'one'}();` [download] to no avail!, hadnt thought of the -> option	[reply] [d/l]
RE: subroutine references by mdillon (Priest) on Jul 14, 2000 at 21:03 UTC
you could also do: `&{$comms{one}}('item');` [download]	[reply] [d/l]