Re^2: Array Filter and Lookahead

>perl -wMstrict -le
"my @test = ('0 xx',  'xx 0',  '0');
 ;;
 my @test_filtered = map { (/(\d+)[\d.]*/g)[-1] || '' } @test;
 printf qq{'$_' } for @test_filtered;
"
'' '' ''
[download]

Update: // vice || does the trick.

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

Replies are listed 'Best First'.
Re^3: Array Filter and Lookahead by Kenosis (Priest) on Nov 20, 2012 at 20:29 UTC
Excellent catch, thank you! Changed disjunct positions...	[reply]
Re^4: Array Filter and Lookahead by AnomalousMonk (Archbishop) on Nov 20, 2012 at 21:18 UTC
Changed disjunct positions... But that just causes a problem for strings that have no digits at all, e.g., 'xxx', which daugh016 wants to extract as '' (empty string).	[reply]
Re^5: Array Filter and Lookahead by Kenosis (Priest) on Nov 20, 2012 at 21:31 UTC
I think today is two of those days... The `//`, as you suggested, is best. Thank you, again...	[reply] [d/l]