Perl 将一目录下的文件按照文件名中的时间字符串排序

      首先,我们要将读到的文件名写入数组,然后将文件名进行拆分,生成一个hash结构,key为时间字符串,value为完整的文件名,最后用sort()根据hash的key排序遍历hash,得到排序后的列表。

我的文件如下所示:
yl_BMS_SYS_T_DOC_BANK_BRANCH_2016-10-24_14-53-30.dsv
yl_BMS_SYS_T_DOC_BANK_BRANCH_2016-10-24_15-24-33.dsv

yl_BMS_SYS_T_DOC_BANK_BRANCH_2016-10-24_11-22-52.dsv
yl_BMS_SYS_T_DOC_BANK_BRANCH_2016-10-24_14-18-45.dsv
yl_BMS_SYS_T_GROUP_2016-10-24_17-00-17.dsv
yl_BMS_SYS_T_GROUP_2016-10-24_17-33-17.ddl
yl_BMS_SYS_T_GROUP_2016-10-24_18-00-23.ddl

yl_BMS_SYS_T_GROUP_2016-10-24_09-00-18.dsv
yl_BMS_SYS_T_GROUP_2016-10-24_11-00-13.dsv
yl_BMS_SYS_T_GROUP_2016-10-24_13-00-20.dsv
yl_BMS_SYS_T_GROUP_2016-10-24_21-23-17.ddl
yl_BMS_SYS_T_PRINT_CHECK_2016-10-24_15-40-57.dsv
yl_BMS_SYS_T_PRINT_CHECK_2016-10-24_16-18-11.dsv
yl_BMS_SYS_T_PRINT_CHECK_2016-10-24_17-33-33.dsv

yl_BMS_SYS_T_PRINT_CHECK_2016-10-24_13-43-22.dsv
yl_BMS_SYS_T_PRINT_CHECK_2016-10-24_15-02-58.dsv


#!/usr/bin/env perl
use strict ;
use warnings ;

my $dir = "D:/Perl_test" ;
opendir ( DIR , $dir ) || die "$!" ;
my @lines = readdir DIR ; #将目录下所有文件写入数组
close DIR ;
my @list ;
my %hash ;
for my $val ( @lines ){
my $value = reverse ( $val ); #倒置文件名
push ( @list , $value );
}

for my $date ( @list ){
my @arr = split /_/ , $date , 3 ; #以'_'为分隔符将文件名截成一个长度为3的数组,第二个分隔符后整体为数组的第三个元素
my $key = reverse ( $arr [ 0 ] . '_' . $arr [ 1 ]); #定义hash key
my $value = reverse ( $date ); #定义hash value
$hash { $key } = $value ; #生成hash
}

for my $ret ( sort { $a cmp $b } keys %hash ){ #通过sort将hash中的key进行排序,然后遍历hash
print " $ret ==> $hash{$ret}\n" ;
}
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值