如果正则表达式匹配A而不是正则表达式匹配B，则打印Perl

Question

我想打印一行文件，如果它包含字符串A并且它不包含字符串B（在每个冒号处也分成新行）。什么是正确的语法？这是我尝试过的（我想要打印包含“bash”的行，但不打印包含数字的行）：

my $file = passwdtest;
open(FH, "$file"); 
foreach (<FH>) { 
print join("\n", split(/:/, "$_")) if ($_ =~ /bash/ and $_ != /\d+/);
};

close FH;

Answer 1

 $_ != /\d+/

是

的缩写

 $_ != ($_ =~ /\d+/)

而不是!=您需要!~

if ($_ =~ /bash/ and $_ !~ /\d+/);

Answer 2

不只是：

if (/bash/ && ! /\d+/)