最初の文字列と一致する行を削除する正規表現ですか？

Question

私は多くの状況のある行の長いリストを持っています。 最初の同じ単語（スペースの前の最初の文字列）を持つ行は残りますが、残りは異なります。 一意の最初の文字列を1行だけ保持する必要があります。

john jane 
john 123 
john jim jane 
jane john 
jane 123 
jane 456 
jim 
jim 1 

この結果ました：だから、

john jane 
jane john 
jim 

を行の最初の単語が一致している場合は、1行以外のすべてを削除します。

は私が

^(.*)(\r?\n\1)+$ 

この正規表現の例のように、同じ行を削除しないで、すべての重複行を削除しますが、上記の例のような行を残すことができます。 これを解決する正規表現またはメモ帳マクロがある場合は？

Answer 1

を

検索：^(\S++).*\K(?:\R\1(?:\h.*|$))+
交換：何

demo

パターンの詳細：

^    # start of the line 
(\S++)  # the first "word" (all that isn't a whitespace) captured in group 1 
.*   # all characters until the end of the line 
\K   # remove characters matched before from the match result 
(?: 
    \R  # a newline 
    \1  # reference to the capture group 1 (same first word) 
    (?: 
     \h.* # a horizontal whitespace 
     |  # OR 
     $  # the end of the line 
    ) 
)+   # repeat one or more times 

Answer 2

あなたはこのスレッドから適応awk

awk '!seen[$1]++' infile.txt 

持っている場合：PerlでUnix: removing duplicate lines without sorting

Answer 3

を：

s/^((\w+).*)\n(?:(?:\2.*\n)*)/$1/gm 

あなたはこれでそれを試してみることができます。

#!/bin/usr/perl 

use warnings; 
use strict; 

my $file = "john jane 
john 123 
john jim jane 
jane john 
jane 123 
jane 456 
jim 
jim 1 
"; 

$file =~ s/^((\w+).*)\n(?:(?:\2.*\n)*)/$1\n/gm; 

print $file;