How to call a sub ref from a hash

NateTut has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to call a sub ref from a hash by almut (Canon) on Dec 15, 2008 at 22:51 UTC
If the syntax the other monks have pointed out is too confusing, you could also always use an intermediate variable: `my $coderef = $Procedures{$Procedure}; $coderef->($Parameter);` [download] ...with the added benefit that even the average newbie would figure out the intention, just going by the variable name.	[reply] [d/l]
Re: How to call a sub reff from a hash by Joost (Canon) on Dec 15, 2008 at 21:59 UTC
You want as the last line: `$Procedures{$Procedure}->($Parameter);` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^2: How to call a sub reff from a hash by NateTut (Deacon) on Dec 15, 2008 at 22:06 UTC
I think you've goten me on the right track, but this: `#!/usr/bin/perl use strict; use warnings; sub Procedure_Name_1 { my($Parm) = shift; print($Parm); } my %Procedures; $Procedures{'ProcName1'} = \&Procedure_Name_1; my $Procedure = 'ProcName1'; my $Parameter = 'Some Value'; &$Procedures->{$Procedure}($Parameter);` [download] still fails...	[reply] [d/l] [select]
Re^3: How to call a sub reff from a hash by Fletch (Bishop) on Dec 15, 2008 at 22:10 UTC
Because you have no scalar `$Procedures` declared (you have a hash `%Procedures`, but that's something completely different). The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l] [select]
Re^4: How to call a sub reff from a hash by NateTut (Deacon) on Dec 15, 2008 at 22:12 UTC
Re^5: How to call a sub reff from a hash by ikegami (Patriarch) on Dec 15, 2008 at 22:17 UTC
Some notes below your chosen depth have not been shown here
Re^5: How to call a sub reff from a hash by Fletch (Bishop) on Dec 15, 2008 at 22:16 UTC
Some notes below your chosen depth have not been shown here
Re^3: How to call a sub reff from a hash by Joost (Canon) on Dec 15, 2008 at 22:37 UTC
For that you want `&{$Procedures{$Procedure}}($Parameter); # or $Procedures{$Procedure}->($Parameter);` [download] And yeah, the syntax may be confusing, but that's just how references work. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^3: How to call a sub reff from a hash by eric256 (Parson) on Dec 15, 2008 at 22:52 UTC
Taking your code and then switching the last line like he said makes it work perfectly. `#!/usr/bin/perl use strict; use warnings; sub Procedure_Name_1 { my($Parm) = shift; print($Parm); } my %Procedures; $Procedures{'ProcName1'} = \&Procedure_Name_1; my $Procedure = 'ProcName1'; my $Parameter = 'Some Value'; $Procedures{$Procedure}->($Parameter);` [download] I don't understand why you ignored his advice but i would recommend trying it as written in the future. BTW you could read the last line as "get the value of $Procedures{$Procedure} and then run it as a coderef ->( passing it $Parameter)" ___________ Eric Hodges	[reply] [d/l]