1#!/bin/rc 2 3sed ' 4 s/[ ]+$// 5 / /!d 6 s/\\N''349''//g 7 s/''//g 8 s/ -/ / 9 s/-$// 10 /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } 11 /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } 12' $1 | 13sed ' 14 /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } 15 /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } 16' | 17sed '/ß/{; p; s/ß/ss/g; }' | 18awk ' 19BEGIN { FS = " |, " } 20 { for(i=2; i<=NF; i++)print $i " " $1 } 21' | 22tr A-Z a-z | 23sort -u -t' ' +0f -1 +0 -1 +1n -2 24