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

前端之家收集整理的这篇文章主要介绍了Perl正则表达式:如何替换除第一个之外的所有所需字符前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个正则表达式用%替换所有特殊字符(用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;
}
原文链接:https://www.f2er.com/Perl/241665.html

猜你在找的Perl相关文章