hash of subroutines.. not quite working 1

[travs69]

I'm 99% sure you can do this but I can't get it. Any help is appreciated

my %equipment_sub_map = {
'CISCO 2651 ROUTER' => \&cisco_2651,
'CISCO 3845-V/K9 VOICE BUNDLE ROUTER' => sub{print "Hi\n";},
};

sub cisco_2651 {
	print "Hi 2\n";
}


&{$equipment_sub_map{"CISCO 2651 ROUTER"}};

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[prex1]

Well, it does work, just put parentheses instead of braces in the definition of [tt]%equipment_sub_map[/tt]...

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[travs69]

hahahaha

duh


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[travs69]

Is there a reason to leave the \& in front of the cisco_2651? It seems to work without it.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[prex1]

Yes it does, and you can also write [tt]$equipment_sub_map{'CISCO 2651 ROUTER'}();[/tt].
Also noted that the line [tt]print cisco_2651,"\n";[/tt] executes the sub, then prints its return value: calls to subs without parentheses nor &, I was pretty sure this wasn't allowed.
That's perl...

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads