根据另一个文件从文件中删除行

Question

我有两个选项卡分开的文件，如下所示。

第一卷宗:-

raj    krishna    2345      19041884
dev    sri        1573      13894083
dev    ravi       1232      54445434

第二档案:-

dev    sri        1573      42334334
kar    ham        3214      45354354

我希望删除第一个文件中与第二个文件中的前3个字段匹配的任何行。因此，删除后的输出第一个文件应该如下所示。

raj    krishna    2345      19041884
dev    ravi       1232      54445434

有人能告诉我如何在perl或shell脚本中实现这一点吗？

谢谢

Answer 1

这使它：

$ awk 'NR == FNR{a[$3];next} !($3 in a)' file2 file1
raj    krishna    2345      19041884
dev    ravi       1232      54445434

它首先保存了file2的第三个字段。然后打印没有第三个字段的行或file1。

它以双文件处理为基础。

Answer 2

Perl解决方案。我把它包装成一个测试所以你可以..。试试看。

#!/usr/bin/perl

use strict;
use warnings;

use autodie qw( open);

use Test::More tests => 1;

# I initialize the data within the test
# the real code would skip this, and open the real files instead

my $file1="raj  krishna 2345    19041884
dev sri 1573    13894083
dev ravi    1232    54445434
";

my $file2="dev  sri 1573    42334334
kar ham 3214    45354354
";

my $expected="raj   krishna 2345    19041884
dev ravi    1232    54445434
";

my $file_out;

open( my $in1, '<', \$file1);    # read from a string
open( my $in2, '<', \$file2);
open( my $out, '>', \$file_out); # write to a string

# below is the real code    

# load the list of "records" to remove
# for each line take the first 3 fields (anything except a tab followed by a tab, 3 times)
my %to_remove= map { line_to_key( $_) => 1 } <$in2>; 

while( my $line=<$in1>)
  { print {$out} $line unless $to_remove{line_to_key( $line)}; }

close $out;

# test whether we got what we wanted
is( $file_out, $expected, 'basic test');

# the "key": split on tab, then join the first 3 fields, again tab separated
sub line_to_key
  { my( $line)= @_;
    my @fields= split /\t/, $line;
    my $key= join "\t", @fields[0..2];
    return $key;
  }