Re^2: How to call a sub reff from a hash

Replies are listed 'Best First'.
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
Yes, but I'm trying to access an element of that hash.	[reply] [d/l]
Re^5: How to call a sub reff from a hash by ikegami (Patriarch) on Dec 15, 2008 at 22:17 UTC
Your wrong code: `$Procedures->{$Procedure}($Parameter); ^^^^^^^^^^^ Not a hash. Undeclared and uninitialized scalar.` [download] The correct code: `$Procedures{$Procedure}->($Parameter); ^^^^^^^^^^^^^^^^^^^^^^^ Element of a hash` [download]	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re^5: How to call a sub reff from a hash by Fletch (Bishop) on Dec 15, 2008 at 22:16 UTC
Then you want to re-read perldata and perlreftut because `$foo->{'bar'}` has nothing to do with trying to get at `$foo{'bar'}`. The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l] [select]
Re^6: How to call a sub reff from a hash by NateTut (Deacon) on Dec 15, 2008 at 22:19 UTC
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]