比较后打印行号

时间:2013-04-17 19:37:40

标签: perl compare

有人能告诉我打印2个文件中不同行数的最佳方法。我有2个目录和1000个文件,我有一个perl脚本,它将dir1中的所有文件与dir2中的所有文件进行比较,并将差异输出到不同的文件。现在我需要添加类似文件名的内容 - 不同行的# File1 - 8 File2 - 30

现在我正在使用

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

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

抱歉,我的上一个主题是重复的。如果一些主持人可以删除前一个

,那就很高兴

1 个答案:

答案 0 :(得分:1)

为什么你甚至使用perl?

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