perl - 比较后打印行号

Question

有人能告诉我在 2 个文件中打印不同行数的最佳方法吗？我有 2 个包含 1000 个文件的目录，并且我有一个 perl 脚本，它将 dir1 中的所有文件与 dir2 中的所有文件进行比较，并将差异输出到不同的文件。现在我需要添加类似 Filename - # of different lines File1 - 8 File2 - 30

现在我正在使用

my $diff = `diff -y --suppress-common-lines "$DirA/$file" "$DirB/$file"`;

但除此之外，我还需要打印这 1000 个文件中的每一个文件中有多少行不同。

对不起是我上一个帖子的副本。所以如果有版主可以删除前一个会很高兴

Answer 1

为什么你甚至使用perl？

for i in "$dirA"/*; do file="${i##*/}"; echo "$file - $(diff -y --suppress-common-lines "$i" "$dirB/$file" | wc -l)" ; done > diffs.txt