同じ行の一致[閉じる]

私が毎日書くクイックスクリプトの種類は次のとおりです。

#!/usr/bin/perl
#

use strict;
use warnings;

#data structures we're gonna need
my %positions; #how many times have we seen a given position
my %registered_lines; #the concatenated lines for the given position 
my $dn; # the current dn section we're in

while (<>)
{
    if (/^dn:/) #beginning of a new dn section (and end of the previous one)
    {
        my $printed = 0; #we want to print the dn line only once
        foreach my $key (keys %positions) #we look at all positions seen in last section
        {
            if ($positions{$key} gt 1) # has the current position been seen more than once
            {
                print $dn unless $printed;
                $printed = 1;
                #print "position $key is repeated $positions{$key} times\n";
                print $registered_lines{$key}; #print all the lines with the position
            }
        }

        #reset variables for the next section
        $dn = $_;
        %positions = ();
        %registered_lines = ();
    }

    if (/^rdcPosition/) #new line
    {
        /(\d+)$/; #have a look at the digits at the end of the line
        my $pos = $1;
        if (exists $positions{$pos}) #have we already seen this position
        {
            $positions{$pos} += 1; #increment the counter
            $registered_lines{$pos} .= $_; #record the line
        }
        else
        {
            $positions{$pos} = 1;
            $registered_lines{$pos} = $_;
        }
    }
}

次のように実行します。

perl script.pl < input_data_file

「重複項目がありますか？」に興味がある場合は、cat <file> | sort | wc -l合計結果を比較することをお勧めしますcat <file> | sort | uniq | wc -l。重複した内容がある場合はuniq削除され、数が減ります。違いを確認するには、@Igeorgetが投稿したPerlスクリプトを確認してください。

awk '/^dn:/ {d=1} {if (d) {print buf | "sort|uniq -d"; d=0; buf=""} else {buf=buf$0"\n"}} END {print buf | "sort|uniq -d"}'|grep -v '^$'

Perlバージョンよりはるかに少ない入力=）。もっと簡単かもしれませんが、「どんなパターンでも最後に」awkルールを実行できないようなので、少しシェルコードの重複が必要です。