Salut à tous,
Je dois supprimer des lignes en double dans un fichier sans chainging la order.for par exemple, si j'ai un casier

pqr
def
abc
LMN
pqr
abc
MKH
hgf


la production devrait être
pqr
def
abc
LMN
MKH
hgf

Plz me.It aide est urgente

Abhishek

Est-ce un devoir?
Essayez de chercher dans les forums.

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

En utilisant awk ...

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

Comme je l'ai dit,
il vous suffit de chercher dans les forums pour trouver les solutions suivantes:

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

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

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

Si l'exigence est de maintenir le dernier, au lieu de la première occurrence, il n'est que légèrement plus difficile.

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

Avec 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