sxw (^_^)当前离线
少尉
perl -lan -F"\@" -e "push @s,$F[1];END{print join \"\n\",sort {$a<=>$b}@s}" 1.txt复制代码
TOP