Re^3: map sub to list?

Yes. Assuming you want to keep the overkill of a function, you could either change the relevant line to:

sub f{ return $_ + 1 };

or pass the $_ as an argument to the function:

use strict; use warnings;
sub f{ return $_[0] + 1 };
my @a = (1, 2, 3);
print join " ", map (f($_), @a);
[download]

I have added the join because you like functional programming. But the more common way to do such things is illustrated in the following Perl one-liner:

$ perl -e 'print join " ", map {$_ + 1} 1..4'
2 3 4 5
[download]

Talking of functional programming, note that the block of code after the map (the {$_ + 1} part) can be regarded as an anonymous function being applied by map onto each input element.

Comment on Re^3: map sub to list? Select or Download Code

Replies are listed 'Best First'.
Re^4: map sub to list? by pldanutz (Acolyte) on Sep 09, 2013 at 18:04 UTC
Cool. The actual code I had was more complex and warranted a function. I posted a simplified snippet as is customary in such venues :) A problem I have with the no-parens style is that I can't tell how associativity works (between print, join, map in your case)	[reply]
Re^5: map sub to list? by Laurent_R (Canon) on Sep 09, 2013 at 19:05 UTC
You may think of it as a data pipeline from right to left. The 1..4 operator produces a list of values fed as an argument to map; map itself produces here another list of values (2 to 5) fed as argument to join; join produces a string made of the numbers separated by spaces, fed to print. Even though the syntax is quite different, this dataflow programming style of construct is very much in the spirit of the various dialects of Lisp and some other functional languages. You may add parens if you feel more comfortable with them, but with a bit of experience you will probably end up agreeing with my view that the syntax is actually clearer without the parens. If you know Unix and shell programming, think of the \| operator (except that, with Perl, you have to read pipeline from right to left). Oh, and BTW, once you are a bit more used to Perl (this is probably a bit too early at this point), read Mark-Jason Dominus' book "Higher Order Perl" (PDF available for free on his site), in which he shows that Perl has many features of functional languages, including call back functions, first-class citizen functions, anonymous subroutines, closures, function factories, currying, etc.	[reply]