Hi all,
El kell távolítani ismétlődő sorok a fájl nélkül chainging a order.for például ha nekem van egy rekord

pqr
def
abc
LMN
pqr
abc
MKH
HGF


A kimeneti kell
pqr
def
abc
LMN
MKH
HGF

Plz segítsen sürgős me.It

Abhishek

Ez a házi feladat?
Próbálkozzon a fórumban.

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

Az awk használ ...

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

Mint mondtam,
Önnek csak meg kell keresni a fórumon, hogy megtalálják a következő oldatokat:

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

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

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

Ha a követelmény, hogy folyamatosan az utolsó helyett az első esemény, ez csak kis mértékben nehezebb.

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

Vele 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