这个perl正则表达式有什么问题？

Question

我正在尝试浏览一个文件，只打印出一个没有特定字母的单词，在字符类中指定。

 if ( $+ =~ [^Aa] )
{
print $_;
}

但这不起作用。我究竟做错了什么？上面的例子应该给出一个没有'a'或'A'的单词列表，但它似乎没有用。

Answer 1

正则表达式“包含不是A的字符或”不是“仅包含非A或”的字符。

它也缺少分隔符。

$+ =~ /^[^Aa]*$/

或

$+ !~ /[Aa]/