src/contrib/scripts/sort-hdb

   1 #!/bin/csh -f
   2
   3 # first: put each residue on one line; newlines are replaced by '@'
   4 # then: sort lines
   5 # finally: replace '@' again by newline (and eliminate empty lines)
   6 awk '\
   7 NF==2 {printf "\n"; printf $0"@";} \
   8 NF>2 {printf $0"@"}\
   9 ' $1 | sort | awk '\
  10 {gsub("@","\n"); print;}\
  11 ' | awk 'NF'
  12
  13 #last line