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

Question

我有一个正则表达式用%替换所有特殊字符(用LIKE进行数据库搜索).它看起来像这样:

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

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

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

这将是

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

(现在第一个'&'也被替换).

任何人都可以帮忙吗？

Answer 1

这会将匹配目标的第一个实例以外的所有实例更改为百分比符号：

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