lensort

   1 #!/bin/bash
   2 #
   3 # $Id$
   4 #
   5
   6 if [ "$1" = "-r" ]; then
   7   shift
   8   sort_opts="-r"
   9 fi
  10
  11 awk 'BEGIN { FS=RS }; { print length, $0 }' ${1+"$@"} |
  12 sort -n $sort_opts |
  13 sed 's/^[0-9][0-9]* //'