Question

求助：perl删除两个文件前三列均相同的行。

1.txt
1 10 20 1 7
1 40 50 2 8
3 78 90 4 6
3 99 100 5 8
2.txt
1 10 20
3 78 90
3 99 100
想要结果：
1 40 50 2 8

Answer 1

open(A, '1.txt');
while (<A>) {
chmop;
@m = split(" ", $_);
$h{($m[0]*1000+ $m[1])*1000 + $m[2]} = 1;
}
close(A);

open(B, '2.txt');
while (<B>) {
chmop;
@m = split(" ", $_);
print if (! exists $h{($m[0]*1000+ $m[1])*1000 + $m[2]} );
}
close(B);