perl按照字符串长度进行排序，sort函数的示例

## rank by len print join("\n",sort sort_by_len keys %chn_hash); sub sort_by_len { if(length($a) < length($b)) {-1} elsif (length($a) > length($b)) {1} else {0} }

>>阅读原文<<