Re^2: Improve foreach with help of map?

No need for an eval or a sub. A block will do:

$ perl -wE '{map {say; last if /3/} 1..5}'
1
2
3
[download]

Comment on Re^2: Improve foreach with help of map? Download Code

Replies are listed 'Best First'.
Re^3: Improve foreach with help of map? by ikegami (Patriarch) on Oct 09, 2009 at 14:47 UTC
`{ map { say; last if /3/ } 1..5 }` [download] is a contortionist's way of writing `for (1..5) { say; last if /3/ }` [download]	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.