正则表达式 – 更好地从Perl字符串中删除特定字符

发布时间：2020-12-14 06:28:44 所属栏目：百科来源：网络整理

导读：我有动态生成的字符串@ @ @ efq @！#!,我想使用Perl从字符串中删除特定的字符. 目前我正在做的事情(用任何东西替换字符)： $varTemp =~ s/['$','#','@','~','!','','*','(',')','[',']',';','.',',',':','?','^',' ','`','','/']//g;

我有动态生成的字符串@ @ @ efq @！#!,我想使用Perl从字符串中删除特定的字符.

目前我正在做的事情(用任何东西替换字符)：

$varTemp =~ s/['$','#','@','~','!','&;','*','(',')','[',']',';','.',',',':','?','^',' ','`','','/']//g;

有更好的做法吗？我正在做一些干净的事情.

你误会了如何使用 character classes：

$varTemp =~ s/[$#@~!&*()[];.,:?^ `/]+//g;

与正则表达式相同(假设您不是要从字符串中删除’字符).

编辑：允许几个“特殊字符”一次匹配,所以它也应该更快.

（编辑：李大同）

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