Re: How do I call a sub using a variable as its name, objectively

It's in fact much easier. Use a variable to keep the method name:

#!/usr/bin/perl
use warnings;
use strict;

{   package My;
    sub new { bless {}, shift }
    sub show { my ($self, $name) = @_; print "Hello $name!\n" }
}

my $A = 'My'->new;

my $method = shift;
$A->$method(@ARGV);
[download]

Using it:

$ 1.pl show World
Hello World!
[download]

Otherwise, you need to do a reference/dereference trick:

$A->${\ $ARGV[0] }(@ARGV[1 .. $#ARGV]);
[download]

Update: Fixed arguments for the second example. Thaks etj.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: How do I call a sub using a variable as its name, objectively Select or Download Code

Replies are listed 'Best First'.
Re^2: How do I call a sub using a variable as its name, objectively by etj (Priest) on Oct 29, 2024 at 14:48 UTC
To be exactly equivalent, that last one would need to be: `$A->${\ $ARGV[0] }(@ARGV[1..$#ARGV]);`	[reply] [d/l]