Lil regex help.. 1

[travs69]

my $data = 'AS5300 chassis, Hw Serial#: 27539697, Hw Revision: A.32';

if ($data =~ /Serial#: (.*?), Hw Revision: (.*?)/i) {
print "$1\n";
print "$2\n";
}

Not working as expected

output is only.
27539697

Thanks in advance as always..!!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

The second group is doing what you told it, to match as little as possible, in this case nothing. Just remove the '?' quantifier:

my $data = 'AS5300 chassis, Hw Serial#: 27539697, Hw Revision: A.32';

if ($data =~ /Serial#: (.*?), Hw Revision: (.*)/i) {
    print "$1\n";
    print "$2\n";
}

------------------------------------------
- Kevin, perl coder unexceptional!

 

[travs69]

Thanks Kevin..

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

You're welcome

------------------------------------------
- Kevin, perl coder unexceptional!