Re^2: Array Filter and Lookahead

in reply to Re: Array Filter and Lookahead
in thread Array Filter and Lookahead

>perl -wMstrict -le
"my @lines = ('xx',  '0 xx',  '1 xx 3.2');
 ;;
 'Zonk' =~ m{ (\w+) }xms;
 ;;
 my @filtered = map { /.*(?<!\d)(\d+)/; $1 // '' } @lines;
 printf qq{'$_' } for @filtered;
"
'Zonk' '0' '2'
[download]

Comment on Re^2: Array Filter and Lookahead Download Code

Replies are listed 'Best First'.
Re^3: Array Filter and Lookahead by moritz (Cardinal) on Nov 21, 2012 at 06:38 UTC
Right, I forget about Perl 5's insane behavior about capture variables when a match failed. The correct way would be to use `/.../ and $1 // ''` or some variation thereof. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]

In Section Seekers of Perl Wisdom