我想搜索不区分大小写的字符串并用 perl 中的原始字符串替换

Question

我正在尝试在字符串中搜索子字符串并突出显示搜索文本。我到目前为止是这样的：

$text = 'Guitar';
$search = 'guit';

使用下面的代码，我返回字符串“guitar”，突出显示“guit”，但我想返回原始的“Guit”，突出显示大写的“G”。任何帮助将不胜感激。

my $replace = "<span style='color:white;background- color:red'>$search</span>";
$text =~ s/$search/$replace/gi;

Answer 1

这成功了。

my ($original) = $text =~ m/$search/gi;
my $replace = "<span style='color:white;background-color:red'>$original</span>";
$text =~ s/$search/$replace/gi;

Answer 2

您要求将替换字符串保存在标量变量中，从而使这变得困难。没有那个

$text =~ s{($search)}{<span style='color:white;background-color:red'>$1</span>}gi;

可以正常使用

你需要/ee eval 表达式修饰符，就像这样

use strict;
use warnings;
use 5.010;

my $text   = 'Guitar';
my $search = 'guit';

my $replace = q{<span style='color:white;background-color:red'>$1</span>};

$text =~ s/($search)/ "qq{$replace}" /eegi;

say $text

输出

<span style='color:white;background-color:red'>Guit</span>ar

Answer 3

使用$&, which will be set to the matched string:

my $text = "Albert Hammond's guitar from Gibraltar.";

foreach my $text ('guitar', 'Gibraltar') {
    my $replace = "<span style='color:white;background-color:red'>" . $& . "</span>";
    $text =~ s/$search/$replace/gi;
}

更新：这不起作用，因为下面的@ThisSuitIsBlackNot cmets：当替换字符串是变量时，$& 将不会在替换字符串中被解释。 （我不知道。）所以你必须摆脱这个变量：

my $text = "Albert Hammond's guitar from Gibraltar.";

foreach my $search ('guitar', 'Gibraltar') {
    my $replace = "";
    $text =~ s/$search/<span style='color:white;background-color:red>$&<\/span>/gi;
}

打印出来

Albert Hammond's <span style='color:white;background-color:red>guitar</span> from <span style='color:white;background-color:red>Gibraltar</span>.

请注意，我还必须转义替换字符串中的/，因为/ 也用于分隔s 命令的参数。

这可能还不够好。

它假定$search 的值永远不会包含任何正则表达式特有的字符（例如. 或*）。 如果可能，您可以使用 qr 转义它们。

它还假定这些值从不包含任何 XML 特殊字符（例如 < 或 >，或在我的示例中为 '。）。如果可能，请使用 XML 操作库（例如 XML::LibXML）进行更改，或使用 XSLT。