Hi All,

Szeretném, ha valaki egy scriptet, amely képes elvégezni az alábbiakban.
Nyomtassa ki a teljes sort, ha column1, ami "0001" az alábbi példa erre a első előfordulását. Későbbi "0001" esemény nem jelenik meg, és így tovább.

Lehet bármilyen szakértői segítséget?

Bemenet:

0.001 k \u003d 40
0.001 k \u003d 2
0.002 k \u003d 1
0.003 k \u003d 1
0.004 k \u003d 77
0.004 k \u003d 1
0.005 k \u003d 88
0.005 k \u003d 6

Output:

0.001 k \u003d 40
0.002 k \u003d 1
0.003 k \u003d 1
0.004 k \u003d 77
0.005 k \u003d 88

$ cat buf                                                                                                                                                               
0001 k= 40
0001 k= 2
0002 k= 1
0003 k= 1
0004 k= 77
0004 k= 1
0005 k= 88
0005 k= 6
$ perl -n -e '($num) = split /=/; next if $found[$num]; print; $found[$num] = 1' buf  
0001 k= 40
0002 k= 1
0003 k= 1
0004 k= 77
0005 k= 88

$ cat test
0.001 k \u003d 40
0.001 k \u003d 2
0002 k \u003d 1
0003 k \u003d 1
0.004 k \u003d 77
0004 k \u003d 1
0.005 k \u003d 88
0.005 k \u003d 6



for i in `cat test | cut-d" "-f1`
tesz
grep "$ i" próba | head -1>> out.txt
kész
sort-u out.txt

0.001 k \u003d 40
0002 k \u003d 1
0003 k \u003d 1
0.004 k \u003d 77
0.005 k \u003d 88

És a Python megközelítés

#!/usr/local/bin/python

keys = {}

input = file('test')
for line in input:
   key = line.split(' ', 1)[0]
   if key not in keys:
      keys[key] = 1
      print line,

Mint egy FAQ
Awk:

awk '!x[$1]++' file

perl -ane'print unless $x{$F[0]}++' file

Brilliáns, radoulov!

Szia radoulov,

A perl kód működni látszik, de nem az awk.
Tudna segíteni? Én használ Solaris az úton.

Is, meg tudja magyarázni a perl kódot, így jobban meg tudom érteni. Mi a funkciója "-ANE"

$ nawk '!x[$1]++' file
x[$1]++': Event not found
$ awk '!x[$1]++' file
x[$1]++': Event not found
$ /usr/xpg4/bin/awk '!x[$1]++' file
x[$1]++': Event not found