這個perl正則表達式有什麼問題？

Question

我試圖通過一個文件，只打印出沒有特定字母的字，在字符類中指定。

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

但這不起作用。我究竟做錯了什麼？上面的例子應該給出一個沒有'a'或'A'的單詞列表，但它似乎沒有工作。

Answer 1

正則表達式表示「包含不是A的字符或不包含的字符」僅包含不是A或字符的字符「。

它也缺少分隔符。

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

或

$+ !~ /[Aa]/