Perl正则表达式：如何替换除第一个之外的所有所需字符

Question

我有一个正则表达式，用％替换所有特殊字符（使用LIKE进行数据库搜索）。它看起来像这样：

$string =~ s/[^ a-zA-Z0-9]/%/g;

但是我不知道如何更改该表达式以替换字符串中第一个所有所需的特殊字符EXCEPT。所以，如果我的字符串看起来像

"&Hi I'm smart(yeah right...)"

它将是

"&Hi I%m smart%yeah right%%%%"

（现在第一个'＆amp;'也被替换了）。

任何人都可以帮忙吗？

Answer 1

您可以使用至少需要一个字符的look-behind assertion：

s/(?<=.)[^ a-zA-Z0-9]/%/g;

Answer 2

这会将匹配目标的第一个实例更改为百分号：

{
    my $count = 0;
    $string =~ s{([^ a-zA-Z0-9])}{$count++ ? "%" : $1}ge;
}

Answer 3

substr($string, 1) =~ s/[^ a-zA-Z0-9]/%/g;

更新：以上仅在特殊字符是字符串的第一个字符时才有效。以下作品无论位于何处：

my $re = qr/[^ a-zA-Z0-9]/;
my @parts = split(/($re)/, $string, 2);
$parts[2] =~ s/$re/%/g if @parts == 3;
$string = join('', @parts);