Re: Getting a result from "foreach" block

What stops you from doing the following:

my @results;
foreach (@data) {
   $_ = $_ * 13;
   push @results, $_;
}
[download]

my @results;
push @results, $_*13 for @data;
[download]

You will find the "return" of the loop in @results.

The most "perlish" way of doing such a thing of course uses map (as AppleFritter already said]:

my @results = map $_*13, @data;
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

Comment on Re: Getting a result from "foreach" block Select or Download Code

Replies are listed 'Best First'.
Re^2: Getting a result from "foreach" block by AnomalousMonk (Archbishop) on Jun 25, 2014 at 18:51 UTC
What stops you ... Nothing stops the beginner from using the first approach or from pitching headlong into the yawning chasm it opens up, for the `foreach` loop is mutating the `@data` "source" array. Of course, map also aliases `$_` to the items of the list over which it iterates and so presents the same pitfall, but I agree it is the idiomatic and preferable approach — but let beginners beware! `c:\@Work\Perl>perl -wMstrict -MData::Dump -le "my @data = 1 .. 4; dd \@data; ;; my @results; foreach (@data) { $_ = $_ * 13; push @results, $_; } ;; dd \@data; dd \@results; " [1 .. 4] [13, 26, 39, 52] [13, 26, 39, 52]` [download]	[reply] [d/l] [select]
Re^3: Getting a result from "foreach" block by RonW (Parson) on Jun 26, 2014 at 17:18 UTC
Then why not: `my @results; foreach (@data) { push @results, $_ * 13; }` [download] To avoid the mutation of @data ?	[reply] [d/l]
Re^4: Getting a result from "foreach" block by AnomalousMonk (Archbishop) on Jun 26, 2014 at 18:31 UTC
Better, IMHO, is `my @result = map $_ * 13, @data;` as already suggested by AppleFritter and CountZero. (Better because more concise and expressive, and it just leaves `$_` the heck alone.)	[reply] [d/l] [select]