Matching numbers embedded in a line in perl

Question

I am trying to write a regular expression in perl that will match this line

<sqlpurchSBC comn 23 8313364.B9230352.329 11200.00 SOLD>

my expression is this so far but it doesnt seem to match my string

m|sqlpurchSBC.*(\d+).(\d+).*(\d+).(\d+).(\d+) SOLD|

I am essentially trying to extract the value 23 and also the value 11200.00. The two decimal does not count though. I need help guys. Thanks

Answer 1

I think a call to split would be better here

use strict;
use warnings 'all';
use feature 'say';

my $s = '<sqlpurchSBC comn 23 8313364.B9230352.329 11200.00 SOLD>';

my @pair;
@pair = ( split ' ', $s )[2,4] if $s =~ /<sqlpurchSBC.+SOLD>/;

say "@pair";

output

23 11200.00

Answer 2

Try this :

m|<sqlpurchSBC.*?(\d+)\s+[\.\w]+\s+(\d+)\.?.*|
                |
          tell .* to be non greedy