正则表达式 – 使用掩码字符串在perl中屏蔽字符串

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

导读：我有一个像’xxox-x’这样的字符串,我想屏蔽文件中的每一行,如下所示： x被忽略(或只是设置为已知值) o保持不变 – 是一个可变长度字段,可以保持其他所有内容不变因此掩盖’xxox-x’对’deadbeef’会产生’xxaxbeex’ 与’deadabbabeef’相同的面具’xxox-x

我有一个像’xxox-x’这样的字符串,我想屏蔽文件中的每一行,如下所示：

> x被忽略(或只是设置为已知值)
> o保持不变
> – 是一个可变长度字段,可以保持其他所有内容不变

因此掩盖’xxox-x’对’deadbeef’会产生’xxaxbeex’

与’deadabbabeef’相同的面具’xxox-x’会产生’xxaxabbabeex’

我怎么能简洁地使用s运算符呢？

解决方法

$mask =~ s/-/'o' x (length $str - length $mask)/e;
$str =~ s/(.)/substr($mask,pos $str,1) eq 'o' ? $1 : 'x'/eg;

（编辑：李大同）

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