http://qs321.pair.com?node_id=11137512

logangha has asked for the wisdom of the Perl Monks concerning the following question:

Hi

I have this assignment

When a string comes with below content

01/LC-13/E10GbE-1,01/LC-14/E10GbE-1

It must take numbers 13, 1, 14 and 1, in order as indicated

And with this instruction is achieved

perl -le '@m = ( "01/LC-13/E10GbE-1,01/LC-14/E10GbE-1" =~ /./\w+-(\d+) +/\w+-(\d+)(?=,./\w+-(\d+)/\w+-(\d+))/); print for @m'

But when string comes with

01/LC-13/E10GbE-1

It must take numbers 13 and 1

And when I run my example does not work

$ perl -le '@m = ( "01/LC-13/E10GbE-1" =~ /./\w+-(\d+)/\w+-(\d+)(?=,./ +\w+-(\d+)/\w+-(\d+))/); print for @m'

It does not return anything

Which seems to be the trouble?

I don't know much about regular expressions

Regards.