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

2016-12-06 19:09:27来源:CSDN作者:Jared128人点击

      首先,我们要将读到的文件名写入数组,然后将文件名进行拆分,生成一个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 perlusestrict;usewarnings;
my$dir="D:/Perl_test";opendir(DIR,$dir)||die"$!";my@lines=readdirDIR;#将目录下所有文件写入数组closeDIR;my@list;my%hash;formy$val(@lines){my$value=reverse($val);#倒置文件名push(@list,$value);}
formy$date(@list){my@arr=split/_/,$date,3;#以'_'为分隔符将文件名截成一个长度为3的数组,第二个分隔符后整体为数组的第三个元素my$key=reverse($arr[0].'_'.$arr[1]);#定义hash keymy$value=reverse($date);#定义hash value$hash{$key}=$value;#生成hash}
formy$ret(sort{$acmp$b}keys%hash){#通过sort将hash中的key进行排序,然后遍历hashprint" $ret ==> $hash{$ret}/n";}

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台