du -sk * | sort -n | #以 K 字节的方式排序
perl -ne ' #使用Perl来处理 K M 和 G 单位
($s,$f)=split(m{\t}); #把 尺寸/文件名 分开
for (qw(K M G)) { #以尺寸单位循环
if($s<1024) { #如果 尺寸<1024 那么就输出
printf("%.1f",$s); #显示文件尺寸
print "$_\t$f"; #显示文件名
last #换行
};
$s=$s/1024 #除1024然后进入下一个尺寸单位
}
'
