Actually Ikegami's 'solution' ("shut up and do what I tell you") almost certainly isn't what the OP is looking for, although it is one way of solving the problem that the OP asked about.
eyepopslikeamosquito really gave the best answer (in terms of likely best outcome for the OP) suggesting that the OP was asking the wrong question. Using symbolic references in Perl is almost never involved in a "best" solution.
And even in the narrow context of the question asked by the OP it's not at all clear that Ikegami's 'solution' solution is best. Consider:
use strict;
use warnings;
for my $fName ('foo', 'wibble') {
my $doFoo = main->can($fName);
print "Strictly: ", $doFoo ? $doFoo->() . "\n" : "Can't $fName\n";
my $cr = do {no strict; \&$fName};
print "Laxly: ", $cr ? $cr->() . "\n" : "Can't $fName\n";
}
sub foo {
return 1;
}
which prints:
Strictly: 1
Laxly: 1
Strictly: Can't wibble
Undefined subroutine &main::wibble called at noname2.pl line 13.
If the OP wants the code to die on a bad sub name then turning a blind eye to the symbolic reference is fine. If the OP wants to detect and handle a missing sub then using the can trick is a better solution. If the OP always knows what the name of the sub will be then there is no need for using a symbolic reference at all. But the OP doesn't give us enough information to make that determination.
There are few (no?) hard and fast rules about what constitutes a 'best' anything. You would do yourself a service by disabusing yourself of the notion that there is a one true best solution to almost anything.
True laziness is hard work
|