gefix 447 B

1234567891011121314151617181920212223
  1. #!/bin/rc
  2. sed '
  3. s/[ ]+$//
  4. / /!d
  5. s/\\N''349''//g
  6. s/''//g
  7. s/ -/ /
  8. s/-$//
  9. /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
  10. /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
  11. ' $1 |
  12. sed '
  13. /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
  14. /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
  15. ' |
  16. sed '/ß/{; p; s/ß/ss/g; }' |
  17. awk '
  18. BEGIN { FS = " |, " }
  19. { for(i=2; i<=NF; i++)print $i " " $1 }
  20. ' |
  21. tr A-Z a-z |
  22. sort -u -t' ' +0f -1 +0 -1 +1n -2