perl – 按mmyy排序(月和年)

发布时间：2020-12-15 21:47:13 所属栏目：大数据来源：网络整理

导读：我正在寻找一个逻辑(不是附加模块)来按这种格式排序.我有一个字符串列表,看起来像： asdadasBBBsfasdasdas-0112asdanfnfnfnfnf222ads-1210 等等我不能按数字排序,因为,例如：812 113(812 = 2012年8月,113 = 2013年1月,所以不正确) 任何好的策略？谢谢, 解

我正在寻找一个逻辑(不是附加模块)来按这种格式排序.我有一个字符串列表,看起来像：

asdadasBBBsfasdasdas-0112
asdanfnfnfnfnf222ads-1210

等等
我不能按数字排序,因为,例如：812> 113(812 = 2012年8月,113 = 2013年1月,所以不正确)

任何好的策略？

谢谢,

解决方法

施瓦茨变换将是一个巨大的浪费.这个类似的结构,我永远不会记得的名字会更好.

my @sorted =
   map substr($_,4),sort
     map substr($_,-2) . substr($_,-4,2) . $_,@unsorted;

使用匹配运算符而不是substr：

my @sorted =
   map substr($_,sort
     map { /(..)(..)z/s; $2.$1.$_ }
      @unsorted;

（编辑：李大同）

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