Re: Array Filter and Lookahead

[Kenosis]

Here's another option:

my @test_filtered = map { (/(\d+)[\d.]*/g)[-1] // ''  } @test;

Update: changed to // to handle 0s. Thanks again, AnomalousMonk.

[AnomalousMonk]

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

Update:  // vice  || does the trick.

[Kenosis]

Excellent catch, thank you! Changed disjunct positions...

[AnomalousMonk]

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).