sweet惜缘 当前离线
二级士官
xudaweb 当前离线
TOP
sxw (^_^)当前离线
少尉
use strict; use warnings; my @lines; open FH,"<","test.txt" or die; while (<FH>){ next if /^\s+$/; push @lines,$_ if /.{50,}/; } # my @lines=<FH>; use Sort::Fields; my @sorted = fieldsort ["10n"], @lines; print "@sorted\n";复制代码
HAT 当前离线
荣誉版主