gefix (447B)
1 #!/bin/rc 2 3 sed ' 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 | 13 sed ' 14 /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; } 15 /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; } 16 ' | 17 sed '/ß/{; p; s/ß/ss/g; }' | 18 awk ' 19 BEGIN { FS = " |, " } 20 { for(i=2; i<=NF; i++)print $i " " $1 } 21 ' | 22 tr A-Z a-z | 23 sort -u -t' ' +0f -1 +0 -1 +1n -2