Question

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

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

这就是我现在所拥有的，但是它给了我错误，＆＃34;使用未初始化的价值$ 1打印出来等等等等等等。

Answer 1

如何使用Text::Diff之类的东西而不是自己构建？

有关如何使用捕获组设置$ 1的说明，请参阅注释。