Perl正則表達式在可變字符串中

Question

我是新來Perl的正則表達式。

我正在嘗試使用字符串oid 1.3.6.1.2.1.4.22.1.2。*。192.168.1.1，但是我不確定該怎么做。 我嘗試了以下操作，但出現錯誤，即無法識別oid。

my $matchanyoid = "/(\d+)$/";
my $dot1dTpFdbAddress = '1.3.6.1.2.1.4.22.1.2.',$matchanyoid,'\.',$srcip;

Answer 1

逗號不是連接運算符，點是：

my $dot1dTpFdbAddress = '1.3.6.1.2.1.4.22.1.2.' . $matchanyoid . '\.' . $srcip;

如果要構建正則表達式，請注意，前幾個點沒有反斜杠，因此它們可以匹配任何內容。 為了避免大量的反斜杠，可以使用\\Q ... \\E構造：

my $matchanyoid = '(\d+)';
my $srcip = 12;
my $regex = qr/\Q1.3.6.1.2.1.4.22.1.2.\E$matchanyoid\.$srcip/;
print '1.3.6.1.2.1.4.22.1.2.123.12' =~ $regex;