用于perl字符串模式匹配的负正则表达式

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

导读：我有这个正则表达式： if($string =~ m/^(Clinton|[^Bush]|Reagan)/i) {print "$stringn"}; 我想和克林顿和里根，但不是布什。它不工作。解决方法示例文本： Clinton said Bush used crayons Reagan forgot 只是省略布什比赛： $ perl -ne 'print if /^(

我有这个正则表达式：

if($string =~ m/^(Clinton|[^Bush]|Reagan)/i)
  {print "$stringn"};

我想和克林顿和里根，但不是布什。

它不工作。

解决方法

示例文本：

Clinton said
Bush used crayons
Reagan forgot

只是省略布什比赛：

$ perl -ne 'print if /^(Clinton|Reagan)/' textfile
Clinton said
Reagan forgot

或者如果你真的想指定：

$ perl -ne 'print if /^(?!Bush)(Clinton|Reagan)/' textfile
Clinton said
Reagan forgot

（编辑：李大同）

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