在Perl中打印所有不匹配的項目

Question

我有一個perl腳本，用於比較兩個文件中的文本。大多數日子裏的文件應該完全一樣，但如果由於某種原因文件中的某些文本發生更改，我希望腳本打印出與其他文件夾中不完全相同的所有文本。我希望它能打印出文件之間的差異。

if($atext !~m/$btext/){ 
print $1; 
} 

這就是我現在有，但它給我的錯誤，「在等等等等使用未初始化值$ 1打印」。

Answer 1

如何使用類似Text::Diff而不是自己構建？

有關如何不使用捕獲組設置$ 1的說明，請參閱註釋。