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";
}