两个文件之间的字符比较

Question

假设我们有 2 个列格式的 txt 文件（空格是分隔符）。 第一个文件：

Col1 Col2  Col3
1    1     1
Two  2     2
3    3     3
4    4     4

第二个：

Col1 Col2  Col3
1    1     One
2    2     2
Test 3     Test
4    4     4

我们比较一下：

• 第 1 行。Col3 中的值不同

• 第 2 行。Col1 中的值不同

• 第 3 行。Col1、Col3 中的值不同

• 第 4 行。值相等

问题是如何获取所有不同列的列表（在这种特殊情况下为 Col1 和 Col3）。 我想知道是否可以仅使用 diff 之类的 Linux 工具进行访问？

我找到了一个 wdiff 工具，用于逐字比较文件。但我不知道如何使用它来解决我的任务。

wdiff 文件1.txt 文件2.txt

1    1 [-1
Two-]     {+One+}
2    2     {+2
Test+} 3 [-3 3-]     {+Test+}
4    4     4

Answer 1

Perl 来救援！

paste file1 file2 \
| perl -lane '
    @cols = @F if 1 == $.;
    $F[$_] eq $F[$_ + @F/2] or ++$h{$_} for 0 .. $#F/2;
    END {print "@cols[keys %h]"}'

paste 并排打印文件：

1    1     1    1    1     One
Two  2     2    2    2     2
3    3     3    Test 3     Test
4    4     4    4    4     4

Perl 然后读取这些行，将第一列与第四列进行比较，依此类推，并记住哪些列不同。最后，它会显示有差异的列的名称。

• -l 从输出中删除换行符，将它们添加到 print
• -n 为每一行输入运行代码
• -a 将空格上的输入拆分到 @F 数组中
• $. 是输入行号。第一行填充列名数组@cols。
• $#F 是数组 @F 的最后一个索引。因此，我们将 @F 的索引从 0 遍历到一半，并为每个列比较列，如果它们不同，我们将列的索引存储在 %h 哈希中。
• END 在最后运行。 keys 返回不同列的索引，因此我们将它们映射到存储在 @cols 数组中的名称。

Answer 2

有点冗长和冗长...

awk '
FNR==1 || !NF {next}
FNR==NR{
  for(i=1;i<=NF;i++)
     f1[FNR,i]=$i
  next
}
{
  for(i=1;i<=NF;i++)
    if ($i != f1[FNR,i])
     diff[i]
}
END {
  for (i in diff)
    print i
}
' file1 file2

类似于@choroba 的 perl 方法：

paste file1 file2 | \
   awk '
     {
         for(i=1;i<=NF/2;i++)
           if ($i != $(i+NF/2) )
             diff[i]
     }
     END {
       for (i in diff)
         print i
     }
   '