Matching part of a string using a Perl regular expression

Question

In the variable $hobbit I have stored value "Emulex LPe16000". Now I need a regular expression to match the "LPe16000" part of the value after "Emulex". Please ignore any syntax errors,I am a novice at perl..!

$hobbit="Emulex LPe16000"
if ($hobbit = ~m/Emulex ^\w+$/)
    print "lol";

`^` means "the beginning of the string". It needs to be before `Emulex`. Then you can put `\w+` in a capturing group. — 41686d6564 stands w. Palestine, Jul 08 '19 at 15:47

The fourth bird · Accepted Answer · 2019-07-08T16:25:38.423

4

The ^ means asserting the start of the string. If you move it to the start you could match Emulex followed by a space and make use of \K to forget what was matched.

Then match 1+ word characters \w+ and assert the end of the string $

^Emulex \K\w+$

Regex demo | Perl demo

If you want to print the match, your code might look like:

my $hobbit="Emulex LPe16000";
if ($hobbit =~ m/^Emulex \K\w+$/) {
    print $&;
}

edited Jul 08 '19 at 16:25

answered Jul 08 '19 at 15:48

The fourth bird

154,723
16
55
70

score 2 · Answer 2 · answered Jul 08 '19 at 15:51

\K is much better way to do it, yet this expression might also work:

Emulex\s+([A-Z]+[a-z]+[0-9]+)

Test

use strict;

my $str = 'Emulex LPe16000';
my $regex = qr/Emulex\s+([A-Z]+[a-z]+[0-9]+)/mp;
my $subst = '$1';

my $result = $str =~ s/$regex/$subst/rg;

print $result\n";

The expression is explained on the top right panel of this demo, if you wish to explore further or modify it, and in this link, you can watch how it would match against some sample inputs step by step, if you like.

Matching part of a string using a Perl regular expression

2 Answers2

Test