마지막 열은 동일하지만 다른 열은 다른 파일의 행을 비교합니다.

탭으로 구분된 파일을 가정하면 GNU awk를 사용할 수 있습니다.

gawk -F'\t' 'NR == FNR {count[$6][$4]++; next} length(count[$6]) > 1' file file

chr10   102979  103832  HSF1        305
chr10   102979  103832  HIF1AN  1   305
chr10   102979  103832  HSF1        305
chr10   103124438   103124851   HSF1        471
chr10   103124438   103124851   EGLN1   2   471

이는 파일을 두 번 통과합니다. 첫 번째는 각 $6에 대해 몇 개의 $4 값이 발생하는지 계산하고, 두 번째는 해당 $6에 대해 두 개 이상의 $4 값이 있는 경우 레코드를 출력합니다.

단일 패스로 수행하는 것이 가능할 수도 있지만 복잡성, 메모리 사용량 및 원래 순서 손실 가능성이 있습니다.

---

Perl의 동일한 논리

perl -Mautodie -e '
    open $f, "<", shift;
    while (<$f>) {
        @F = split /\t/;
        $c{ $F[5] }{ $F[3] }++;
    }
    # re-process the file
    seek $f, 0, 0;
    while (<$f>) {
        @F = split /\t/;
        print if scalar keys %{ $c{$F[5]} } > 1;
    }
' file

파일을 한 줄씩 읽고, 마지막 열의 값이 버퍼의 다른 모든 줄과 동일한 경우 해당 줄을 버퍼에 저장하고, 그렇지 않으면 버퍼를 처리하여 비웁니다.

버퍼를 처리한다는 것은 네 번째 열 값을 공유하지 않는 최소한 한 쌍의 연속 행을 찾고 성공하면 버퍼를 인쇄하는 것을 의미합니다.

더 나은 출력을 얻고 값에 더 쉽게 액세스하기 위해 개별 열과 함께 정확한 행을 버퍼에 저장합니다.

#!/usr/bin/perl
use warnings;
use strict;

sub process {
    my (@rows) = @_;
    my $different;
    for my $i (1 .. $#rows) {
        $different = 1, last if $rows[ $i - 1 ][4] ne $rows[$i][4];
    }
    print map "$_->[0]\n", @rows if $different;
}

my @buffer;
while (<>) {
    chomp;
    my @columns = split;
    if (! @buffer || $buffer[0][-1] == $columns[-1]) {
        push @buffer, [$_, @columns];
    } else {
        process(@buffer);
        @buffer = [$_, split];
    }
}
process(@buffer);