首先,我们要将读到的文件名写入数组,然后将文件名进行拆分,生成一个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_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
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"
;
}