将 html 添加到 perl 正则表达式

Question

我正在尝试用 HTML 代码标记替换所有 ``

替换：

$string = "Foo `FooBar` Bar";

与：

$string = "Foo <code>FooBar</code> Bar";

我试过这些

$pattern = '`(.*?)`';

my $replace = "<code/>$&</code>";
$subject =~ s/$pattern/$replace/im;

#And

$subject =~ s/$pattern/<code/>$&</code>/im;

但它们都不起作用。

Answer 1

假设您的意思是 $string 而不是 $subject...

use strict;
use warnings;
use v5.10;

my $string = "Foo `FooBar` Bar";

my $pattern = '`(.*?)`';
my $replace = "<code/>$&</code>";

$string =~ s{$pattern}{$replace}im;
say $string;

这会导致...

$ perl ~/tmp/test.plx
Use of uninitialized value $& in concatenation (.) or string at /Users/schwern/tmp/test.plx line 9.
Foo <code/></code> Bar

这里有一些问题。首先，$& 表示最后匹配的字符串。这就是`FooBar` 的全部内容。你只想要FooBar，它在捕获括号内。你可以通过$1 得到它。见Extracting Matches in the Perl Regex Tutorial。

其次是$& 和$1 是变量。如果你把它们放在像$replace = "<code/>$&</code>" 这样的双引号中，那么Perl 将立即 插入它们。这意味着$replace 是<code/></code>。这就是警告的来源。如果你想使用$1，它必须直接进入替换。

最后，在引用正则表达式时最好使用qr{}。那是特殊的正则表达式引用。它避免了各种引用问题。

把它们放在一起......

use strict;
use warnings;
use v5.10;

my $string = "Foo `FooBar` Bar";

my $pattern = qr{`(.*?)`};
$string =~ s{$pattern}{<code/>$1</code>}im;

say $string;