perl - 每个文件中的不同行数 - 比较 2 个目录中的所有文件

Question

我有 2 个目录 dir1 和 dir2 有数千个文件。我有一个 perl 脚本来比较这两者并在不同的文件中打印差异。我正在使用 diff my $diff = diff -y --suppress-common-lines "$DirA/$file" "$DirB/$file"; 比较两个目录中的所有文件（同名）。有了这个，我还想添加

文件名：# 不同的行

文件 1 – 1

文件 2 - 30

并在 summary.txt 文件中输出差异。有人可以帮助我吗？

Answer 1

尝试这个：

echo $file - `diff -y --suppress-common-lines $DirA/$file $DirB/$file | wc -l` >> summary.txt