こんにちはすべて、
私はもし私に記録したファイルのorder.for例えばchainging重複行を削除する必要なし

pqr
デフ
ABC社
lmn
pqr
ABC社
mkh
hgf


出力する必要があります
pqr
デフ
ABC社
lmn
mkh
hgf

Plzヘルプme.It急務となっている

Abhishek

これは、宿題はありますか？
のフォーラムを検索してみてください。

#!/usr/bin/perl -w

while (<STDIN>)
{
        push (@lines, $_);
}

print "-\n";

foreach my $i (@lines)
{
        if (scalar (grep { /$i/ } @lines) == 1)
        {
                print $i;
        }
}

Tsunami repeated_lines # perl repeat.pl 
pqr
def
abc
lmn
pqr
abc
mkh
hgf
-
def
lmn
mkh
hgf
Tsunami repeated_lines #

Tsunami repeated_lines # cat lines |perl repeat.pl 
-
def
lmn
mkh
hgf
Tsunami repeated_lines # cat lines 
pqr
def
abc
lmn
pqr
abc
mkh
hgf
Tsunami repeated_lines #

Awkの使用...

$ awk '! a[$0]++' file
pqr
def
abc
lmn
mkh
hgf
$

私は言った。
あなただけのフォーラムを検索するには、以下のソリューションを見つける必要があります：

awk '!_[$0]++' input

perl -ne'print unless $_{$_}++' input

perl -ne'$_{$_}++||print' input

場合は、要件を維持することですが、それだけではなく、わずかに難しいのが最初に現れるの最後。

perl -ne '$n{$_} = $.; END { print sort { $n{$a} <=> $n{$b} } keys %n }'

〜とともに のGNU Awkの：

awk 'END { for (k in r) t[sprintf("%10d", r[k])] = k
  n = asorti(t, _)
  while (++i <= n) print t[_[i]] }
{ r[$0] = NR }' filename