Re^3: How to call subroutines using variables ?

which worked fine. But in CGI::Application I'm using $self->, as in:

$self->$all_subs[1]->();
[download]

Use:

my $code=$all_subs[1];
$self->$code();
[download]

This will call $code as a method on $self, which AIUI is what you want. If you would like to do the same without an intermediate variable, then I wondered too and it turns out to be possible, albeit in a somewhat convoluted way.

Comment on Re^3: How to call subroutines using variables ? Select or Download Code

Replies are listed 'Best First'.
Re^4: How to call subroutines using variables ? by bradcathey (Prior) on Jun 09, 2007 at 19:48 UTC
Worked great, but I did have to get rid of the `&` in front of my subroutine names. So: `my @all_subs = (\sub_1,\sub_2);` [download] —Brad "The important work of moving the world forward does not wait to be done by perfect men." George Eliot	[reply] [d/l] [select]
Re^5: How to call subroutines using variables ? by chromatic (Archbishop) on Jun 10, 2007 at 04:23 UTC
You're not using strict, are you? That ought to call those subroutines immediately and take a reference to their results.	[reply]
Re^6: How to call subroutines using variables ? by bradcathey (Prior) on Jun 10, 2007 at 12:25 UTC
Obviously I'm missing something key here. I have: `my @val = (\val_input,\val_input,\val_input,\val_input,\val_number,\v +al_date,\val_number,\val_filter); for my $i ( 0 .. $#list) { $code = $val[$i]; #which subroutine to call? ($sql{ $list[$i] }, $error) = $self->$code( $mand[$i], $self->query +->param($list[$i] )); if ( $error-> { msg } ) { push @errors, ucfirst($list[$i])." $error +->{ msg }" } }` [download] Sounds like I need a `no strict 'refs'` block in there. Possibly: `} no strict 'refs'; $code = $val[$i]; }` [download] But now I'm just speculating. —Brad "The important work of moving the world forward does not wait to be done by perfect men." George Eliot	[reply] [d/l] [select]
Re^7: How to call subroutines using variables ? by chromatic (Archbishop) on Jun 10, 2007 at 17:32 UTC
Re^5: How to call subroutines using variables ? by blazar (Canon) on Jun 10, 2007 at 07:32 UTC
Worked great, but I did have to get rid of the `&` in front of my subroutine names. So: `my @all_subs = (\sub_1,\sub_2);` [download] In which sense did you "have" to? That is something completely different. Read more... (606 Bytes)	[reply] [d/l] [select]