使用Perl正则表达式匹配字符串的一部分

Question

在变量Emulex中，我存储了值"Emulex LPe16000“。现在我需要一个正则表达式来匹配"Emulex“之后的值的"LPe16000”部分。请忽略任何语法错误，我是perl的新手！

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

Answer 1

^表示断言字符串的开头。如果将它移到开头，您可以匹配Emulex，后跟一个空格，并利用\K忘记匹配的内容。

然后匹配1+ word字符\w+并断言字符串$的结尾

^Emulex \K\w+$

Regex demo | Perl demo

如果您想打印匹配，您的代码可能如下所示：

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

Answer 2

\K是一种更好的方法，但是下面的表达式也可能有效：

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

测试

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";

在this demo的右上角面板中解释了该表达式，如果您希望进一步探索或修改它，并且在this link中，如果您愿意，您可以一步一步地观察它如何与一些样本输入匹配。