24 lines
447 B
Bash
24 lines
447 B
Bash
#!/bin/rc
|
|
|
|
sed '
|
|
s/[ ]+$//
|
|
/ /!d
|
|
s/\\N''349''//g
|
|
s/''//g
|
|
s/ -/ /
|
|
s/-$//
|
|
/\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
|
|
/\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
|
|
' $1 |
|
|
sed '
|
|
/\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
|
|
/\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
|
|
' |
|
|
sed '/ß/{; p; s/ß/ss/g; }' |
|
|
awk '
|
|
BEGIN { FS = " |, " }
|
|
{ for(i=2; i<=NF; i++)print $i " " $1 }
|
|
' |
|
|
tr A-Z a-z |
|
|
sort -u -t' ' +0f -1 +0 -1 +1n -2
|