Can't use string as a subroutine

[arcnon]

Can't use string ("Menu::quit_now") as a subroutine ref while "strict refs" in use

when I comment out use strict it works fine
how do I get it to work WITH use strict

thanks

 

[rharsh]

Can you post the pertinent code?

 

[thenewa2x]

you can also do this:

[tt]
#!/usr/bin/perl
use strict;
no strict 'refs';
[/tt]

---------------------------------------
If you helped... thx.

 

[arcnon]

I figured it out the solution is:

# hash built dynamiclly from a file
%menu_list = (
'3' => 'Menu::new_character',
'4' => 'Menu::quit_now'
);

$input = <STDIN>;
chomp $input;

if ($menu_list{$input}){
$bar = \&{$menu_list{$input}};
}

 

[thenewa2x]

you might want to do this:

eval($menu_list{$input}) if( exists $menu_list{$input});

---------------------------------------
If you helped... thx.