Print rij als waarde in kolom 1 is het eerste optreden - De UNIX-en Linux Forum

Raynon · #1 (**permalink**) 03-17-2008

Hi All,

Ik zou graag een script dat in staat is het uitvoeren van de hieronder.
Druk de hele rij als kolom1 die "0001" voor het onderstaande voorbeeld is de eerste exemplaar. Van latere datum "0001" gebeurtenis zal niet worden afgedrukt en zo verder.

Kan iedere deskundige hulp nodig?

Ingang:

0001 k \u003d 40
0001 k \u003d 2
0002 k \u003d 1
0003 k \u003d 1
0004 k \u003d 77
0004 k \u003d 1
0005 k \u003d 88
0005 k \u003d 6

Output:

0001 k \u003d 40
0002 k \u003d 1
0003 k \u003d 1
0004 k \u003d 77
0005 k \u003d 88

AGN · #2 (**permalink**) 03-17-2008

Code:

$ 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

Shivdatta · #3 (**permalink**) 03-17-2008

$ cat test
0001 k \u003d 40
0001 k \u003d 2
0002 k \u003d 1
0003 k \u003d 1
0004 k \u003d 77
0004 k \u003d 1
0005 k \u003d 88
0005 k \u003d 6

for i in `cat test | cut-d" "-f1`
doen
grep "$ i"-test | head -1>> out.txt
gedaan
sort-u out.txt

0001 k \u003d 40
0002 k \u003d 1
0003 k \u003d 1
0004 k \u003d 77
0005 k \u003d 88

fpmurphy · #4 (**permalink**) 03-17-2008

En de Python aanpak

Code:

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

radoulov · #5 (**permalink**) 03-17-2008

Net als een FAQ

Awk:

Code:

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

Gebruik nawk of / usr/xpg4/bin/awk op Solaris.

Perl:

Code:

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

AGN · #6 (**permalink**) 03-17-2008

Brilliant, radoulov!

Raynon · #7 (**permalink**) 03-17-2008

Citaat:

Oorspronkelijk geplaatst door radoulov

Net als een FAQ

Awk:

Code:

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

Gebruik nawk of / usr/xpg4/bin/awk op Solaris.

Perl:

Code:

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

Hi radoulov,

De perl code lijkt te werken, maar niet de awk.
Kunt u mij helpen? Ik gebruik solaris door de manier.

Ook kunt u uitleggen uw perl code zodat ik kan beter te begrijpen. Wat is de functie van "-ane"

Code:

$ 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

Meer UNIX en Linux Forum Onderwerpen Misschien vindt u Helpful
Draad	Thread Starter	Forum	Antwoorden	Last Post
print lijn vóór kolom 1 overgangen	ajp7701	Programmeren en Shell Scripting	2	04-17-2008 11:05 PM
Hoe lees ik de kolom en afdrukken van de waarden onder die kolom	gemini106	Programmeren en Shell Scripting	6	03-28-2008 07:05
Kunnen we gebruik 'tr' commando om af te drukken 5e kolom van de output van 'ls-l'	Nidhi2177	Programmeren en Shell Scripting	4	09-17-2007 06:53
om af te drukken met behulp van kolom awk	cdfd123	Programmeren en Shell Scripting	2	07-26-2007 01:15 PM
kan awk print kolom met behulp van een variabele?	jambesh	Programmeren en Shell Scripting	36	09-26-2006 07:39

Thread Tools	Zoeken in deze Thread
Toon Printversie E-mail deze pagina	Zoeken in deze Thread: Uitgebreid zoeken
Display Modes	Beoordeel deze draad
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Beoordeel deze draad:


	Powered by