- or download this
sub my_map {
my $sub = shift;
...
}
return @out;
}
- or download this
sub square { $_[0] * $_[0] }
my @squares = my_map( \&square, 1..3 ); # @squares is now ( 1, 4, 9 )
- or download this
my @squares = my_map( sub { $_[0]*$_[0] }, 1..3 );
- or download this
my @squares = my_map sub { $_[0]*$_[0] }, 1..3;
- or download this
sub my_map {
my $sub = shift;
...
}
return @out;
}
- or download this
my @squares = my_map sub { $_ * $_ }, 1..3;
- or download this
my @squares = map { $_ * $_ } 1..3; # BLOCK form of map
- or download this
sub twice { $_ * 2 }
- or download this
my @evens = map &twice, 1..10; # EXPR form of map
- or download this
my @evens = my_map \&twice, 1..10;
- or download this
sub my_map (\&@_) {
my $sub = shift;
...
push @out, $sub->() for @_;
return @out;
}
- or download this
my @evens = my_map &twice, 1..10;
- or download this
sub my_map (&@) {
my $sub = shift;
...
push @out, $sub->() for @_;
return @out;
}
- or download this
my @evens = my_map { $_ * 2 } 1..3;
- or download this
my @evens = my_map $_ * 2, 1..10; # splat!
- or download this
my @ints = 1..3;
my @evens = my_map { $_ *= 2 } @ints;
...
__END__
2 3 6
2 3 6
- or download this
sub my_grep (&@) {
my $sub = shift;
...
$sub->() && push @out, $_ for @_;
return @out;
}