You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
|
|
sub do_list {
|
|
my ($subref, @in) = @_;
|
|
|
|
return map { &$subref ($_) } @in;
|
|
}
|
|
|
|
sub add_one {
|
|
return $_[0] + 1;
|
|
}
|
|
|
|
$, = ",";
|
|
print do_list (\&add_one, 1, 2, 3); # prints 2, 3, 4
|