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

Question

我有一个比较来自两个文件的文本的 perl 脚本。大多数日子里的文件应该完全相同，但如果由于某种原因文件中的某些文本发生更改，我希望脚本打印出与其他文件夹中不完全相同的所有文本。我想让它打印出文件之间的差异。

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

这就是我目前拥有的，但它给我错误，"Use of uninitialized value in print at blah blah blah"。

Answer 1

使用 Text::Diff 之类的东西而不是自己构建怎么样？

有关您如何不使用捕获组来设置 $1 的解释，请参阅评论。