perl – 如何对数组进行排序,以便某些文件扩展名排在最前面？

发布时间：2020-12-15 23:31:14 所属栏目：大数据来源：网络整理

导读：我有一个包含文件列表的数组.我想以一种方式对它进行排序,它会让我在数组的开头和之后的其余文件中包含.txt文件. 这就是我现在正在做的,这很好. @files = (grep(/.txt$/,@files),grep(!/.txt$/,@files)); 有没有更好的方法呢？解决方法 Sort将可选块作为

我有一个包含文件列表的数组.我想以一种方式对它进行排序,它会让我在数组的开头和之后的其余文件中包含.txt文件.

这就是我现在正在做的,这很好.

@files = (grep(/.txt$/,@files),grep(!/.txt$/,@files));

有没有更好的方法呢？

解决方法

Sort将可选块作为第一个参数,但在这种情况下,Schwartzian变换会更快.

@files = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_,!/.txt$/ ] } @files;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!