Perl 把一堆文件 按照 文件名字中的时间 进行排序

#!/usr/bin/perl open dl ,"list" || die "open error$!"; %hash; while(<dl>) { #print $_; my ($a,$b,$c,$d) = split('_',$_); my ($d,$e) = split (//./,$c); $hash{$_}=$d; #做成一个Hash key是文件名字 value是时间戳。 } foreach my $key ( sort { $hash{$a} <=> $hash{$b} } keys %hash ) { printf("%s", $key); } #按时间排序的文件列表

文件格式

./12/010769238L_C-D-2_0528125501.log
./12/010769238L_C-D-2_0528121501.log
./12/010769238L_C-D-2_0528124501.log
./12/010769238L_C-D-2_0528130001.log