Hei,

Vennligst hjelp!
Jeg har en fil som har dupliserte ord i noen og jeg vil fjerne dupliserte ord.
Rekkefølgen av ordene i utdatafilen spiller ingen rolle.

INPUT_FILE
pink_kite red_pen ball pink_kite ball
yellow_flower hvit ingen hvite no
cloud nine_pen rosa sky rosa nine_pen
brown_ball hvit
red_bear grønne red_bear
hvit no

Utdatafil
pink_kite red_pen ball
yellow_flower hvit no
cloud nine_pen rosa
brown_ball hvit
red_bear grønt
hvit no

Din hjelp er høyt verdsatt.
Takk på forhånd

awk '{ while(++i<=NF) printf (!a[$i]++) ? $i FS : ""; i=split("",a); print "" }' file

#!/usr/bin/env python

for line in open('temp.txt', 'r'):
    seen = []
    words = line.rstrip('\n').split()

    for word in words:
        if not word in seen:
            print word,
            seen.append(word)
    print

# cat temp.txt
pink_kite red_pen ball pink_kite ball
yellow_flower white no white no
cloud nine_pen pink cloud pink nine_pen
brown_ball white
red_bear green red_bear
white no

# python temp.py
pink_kite red_pen ball
yellow_flower white no
cloud nine_pen pink
brown_ball white
red_bear green
white no

hei perl skal være enkelt.

Men du kan prøve nedenfor awk

nawk '
function re_dup(arr,n)
{
	for(i=1;i<num;i++){
		for(j=i+1;j<=num;j++){
			if (arr[i]==arr[j])
				arr[j]=""
		}
	}
}
{
	num=split($0,arr," ")
	re_dup(arr,num)
	for(i=1;i<=num;i++){
		if(arr[i]!="")
			printf("%s ",arr[i])
	}
	printf "\n"
}' filename

Takk summer_cherry, ShawnMilo og Rubin.

Den nawk og Python koder kjører perfekt,

men Rubin den awk en rutebåt gir feilmeldingen "a [: Event ikke funnet." kan u vennligst guide hvorfor denne feilen kommer?

Takk igjen.
Sam

Takk summer_cherry, ShawnMilo og Rubin.

Den nawk og Python koder kjører perfekt,

men Rubin den awk en rutebåt gir feilmeldingen "a [: Event ikke funnet." kan u vennligst guide hvorfor denne feilen kommer?

Takk igjen.
Sam

Jeg kan ikke gjengi den samme feilen åpenbart bruk nawk eller /usr/xpg4/bin/awk Solaris. Koden virker fint enten Solaris eller Linux uten feilmeldinger.
HTH.