#! perl -slw
use strict;

{
    package Other;

    sub commandFunc {
        print "Doing Other::commandFunc with args: [ @{ $_[0] } ]";
        return;
    }
}

sub executeCommand{
    no strict 'refs';
    my( $func, $argRef ) = @_;
    *{$func}->( $argRef );
}


my @a = 1.. 10;
executeCommand( 'Other::commandFunc', \@a );

__END__
C:\test>junk
Doing Other::commandFunc with args: [ 1 2 3 4 5 6 7 8 9 10 ]
[download]

The use of symbolic reference is an elegent solution for a 'use once' script. The effort to write a hash of hard references (Called 'dispatch table' in a previous post) will probably be repaid in the maintainence of 'industrial strength' software. Unfortunately, most perl applications lie somewhere inbetween, where the choice is one of preference.

The effort to write a hash of hard references (Called 'dispatch table' in a previous post) will probably be repaid in the maintainence of 'industrial strength' software.

Sorry, but you do not know what you are talking about.

The code I posted uses a hash-based dispatch table. It is called the symbol table.

There is simply no advantage to adding another layer of indirection here; and no additional risk or maintenance effort in avoiding that extra layer.

Which makes all your talk of "use once" and "industrial strength", nothing more than cargo-culted, pseudo-CompSci balderdash!

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

You don't need symbolic references at all

#!/usr/bin/perl --
use strict; use warnings;
use CGI;
sub dier { die " dier die @_ " }
warn main->can('CGI::new')->();
main->can('dier')->( 'now' );
__END__
CGI=HASH(0x99a1fc) at - line 5.
 dier die now  at - line 4.
[download]

I recommend passing a code reference as first argument, this is the most generic way to solve this kind of problem.

use 5.010;
use strictures;

sub execute_command {
    my ($code, $params) = @_;
    say 'Inside executeCommand';
    say 'Currently executing: ', ref $code;
    foreach my $element (@{ $params }) {
        say "Parameter: $element";
        $code->($element);
    }
}

my $command = sub {
    # I am going to print the arguments I receive!
    say @_;
};

execute_command($command, \@paramlist);
[download]

Hi, Thanks for your reply, i will try your approach and let you know the results. $command is a normal perl function , it might do anything as you defined it can just print the passed arguments as well. In my case $command is a value got by parsing an xml which is a name of a function.. $command = launchapp; launchapp is the function name which needs to be triggered.