Generate array of function references in Perl

Question

I have a lot of functions starting with a given prefix. I would like to create an array of these functions and then execute them one by one.

Consider:

use v5.12;

my @names = qw(a b);
my @ss = map { "s".$_ } @names;

sub sa {
    say "a";
}

sub sb {
    say "b";
}

Here the function prefix is s. How do I call these functions one by one, for instance, using a for loop..? (I tried inserting a \& inside the map command, but that did not work.)

Note that all the functions will take the same arguments, and that's why I think this is something that could be useful to do...

Borodin · Accepted Answer · 2014-04-30 12:29:35Z

4

One possible approach:

use 5.012;

my @names = qw(a b);
my @ss    = map { \&{"s$_"} } @names;

sub sa {
    say "a";
}

sub sb {
    say "b";
}

&$_() for @ss;

Demo. In short, references to the functions are stored. Note that storing subroutine names in @ss and calling those (with & sygil) fails in the strict mode:

Can't use string ("sa") as a subroutine ref while "strict refs"

And, perhaps it's just me, but I'd rather define these functions in a hash:

my %hof = (
  a => sub { say 'a'; },
  b => sub { say 'b'; },
  c => sub { say 'c: ' . $_[0]; },
);

$hof{$_}('something') for sort keys %hof;

output

a
b
c: something

edited Apr 30, 2014 at 12:29

Borodin

127k9 gold badges72 silver badges146 bronze badges

answered Apr 30, 2014 at 10:29

raina77ow

107k16 gold badges205 silver badges240 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

mpapec · Accepted Answer · 2014-04-30 10:35:21Z

2

use strict;
use warnings;
use v5.12;

use Data::Dumper;

my @names = qw(a b);
my @ss = map { $main::{"s$_"} } @names;

$_->() for @ss;


sub sa {
    say "a";
}

sub sb {
    say "b";
}

answered Apr 30, 2014 at 10:35

mpapec

50.8k8 gold badges72 silver badges133 bronze badges

Collectives™ on Stack Overflow

Generate array of function references in Perl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related