gefix

来自「这是一个同样来自贝尔实验室的和UNIX有着渊源的操作系统, 其简洁的设计和实现易」· 代码 · 共 24 行

#!/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