我有2个文件,
文件1->
1
2
2
3
5
文件2->
1
3
2
6
我希望将输出存储在名为 file3 的第三个文件中
1,1,Match
2,2,Match
2,,NoMatch
3,3,Match
5,,NoMatch
,6,NoMatch
我试过了,
sort file1 > file1sorted.txt
sort file2 > file2sorted.txt
# Combine the sorted files with a comma and store it in a new file
paste -d ',' file1sorted.txt file2sorted.txt > mergedsortedfile.txt
# Compare the columns and store the result in a new file
awk -F',' '{print $1 == $2 ? "MATCH" : "NO MATCH"}' mergedsortedfile.txt > result.txt
# Merge the result file with the already existing merged file
paste -d ', ' mergedsortedfile.txt result.txt > final_result.txt
结果看起来像这样,
1,1,MATCH
2,2,MATCH
2,3,NO MATCH
3,6,NO MATCH
5,,NO MATCH
答案1
使用comm
排序后的数据:
$ comm <( sort -n file1 ) <( sort -n file2 )
1
2
2
3
5
6
此输出以制表符分隔。我们可以将第 1 列和第 2 列中的所有内容标记为“NoMatch”,将第 3 列中的所有内容标记为“Match” awk
:
$ comm <( sort -n file1 ) <( sort -n file2 ) |
awk -F$'\t' 'BEGIN { OFS="," } $3 { print $3, $3, "Match"; next } { print $1, $2, "NoMatch" }'
1,1,Match
2,2,Match
2,,NoMatch
3,3,Match
5,,NoMatch
,6,NoMatch
该awk
脚本将读取制表符分隔的输入 ( -F$'\t'
) 并使用逗号作为输出字段分隔符 ( OFS=","
)。如果第 3 字段中有内容,那么它将Match
在第三字段中输出两次,然后继续下一行。否则,它将从输入中输出字段 1 和 2 以及NoMatch
第三个字段。
答案2
将此 perl 脚本保存为文件 xxx 并运行它perl xxx file1 file2
#!/usr/bin/perl
# save the first two files, the <> slurp clears @ARGV
($f1,$f2) = @ARGV;
# build a hash of hash of lines from all files,
# with the filename as key
do { chomp; push @{$hash{$ARGV}}, $_ } while <>;
# compare every line until both are empty
# the hash slice is a short expression for
# $a = $hash{$f1}->[$x]
# $b = $hash{$f2}->[$x]
for ($x=0;;$x++) {
($a,$b) = map { $$_[$x] } @hash{$f1,$f2};
last unless $a or $b;
printf "%s,%s,%s\n", $a, $b, $a eq $b ? 'Match' : 'NoMatch';
}