blob: 74df8de0d5b0b0f1fe5420e481fd89605d469704 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/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
|