Hej alla,
Jag måste ta bort dubbla rader i en fil utan chainging den order.for exempel om jag har ett förflutet

PQR
def
abc
LMN
PQR
abc
MKH
hgf


produktionen bör
PQR
def
abc
LMN
MKH
hgf

Plz hjälp me.It är brådskande

Abhishek

Är det här en läxa?
Prova att söka på forum.

#!/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 #

Använda awk ...

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

Som jag sa,
Du behöver bara söka på forum för att hitta följande lösningar:

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

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

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

Om kravet är att hålla det sista stället för den första händelsen, det är bara marginellt svårare.

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

Med 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