我有这个正则表达式：
if($string =~ m/^(Clinton|[^Bush]|Reagan)/i)
{print "$string\n"};
我想和克林顿和里根，但不是布什。
它不工作。
解决方法
示例文本：
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