Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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