17 lines
249 B
Perl
17 lines
249 B
Perl
|
#!/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
|