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

发布时间：2020-12-15 21:43:43 所属栏目：大数据来源：网络整理

导读：我有一个正则表达式用％替换所有特殊字符(用LIKE进行数据库搜索).它看起来像这样： $string =~ s/[^ a-zA-Z0-9]/%/g; 但是,我不知道如何更改该表达式以替换字符串中第一个所有所需的特殊字符EXCEPT.所以如果我的字符串看起来像 "Hi I'm smart(yeah right...)

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

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

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

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

这将是

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

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

任何人都可以帮忙吗？

解决方法

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!