大佬教程收集整理的这篇文章主要介绍了Perv中的Schwartzian变换?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
my @output = map $_->[0],sort{$a->[1] <=> $b->[1]} map [$_,-s $_],@array;
有人可以更详细地解释代码吗?我不能得到它的头或尾..
@array
一个数组(文件名,以后使用).
map [$_,
对于每个文件名,获取对两元素匿名数组的引用,第一个元素是文件名,第二个元素是文件的字节大小. map返回这些数组引用的列表.
sort{$a->[1] <=> $b->[1]}
通过增加文件大小对数组引用列表进行排序.
map $_->[0],
将数组引用列表转回到文件名列表中,但现在按排序顺序.
my @output =
将列表保存在@output中.
这相当于:
my @output = sort { -s $a <=> -s $b } @array;
但只能获得每个文件的大小一次,而不是按排序进行每次比较一次.
以上是大佬教程为你收集整理的Perv中的Schwartzian变换?全部内容,希望文章能够帮你解决Perv中的Schwartzian变换?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。