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; #做成<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>Hash key是<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名字 value是时间戳。 } foreach my $key ( sort { $hash{$a} <=> $hash{$b} } keys %hash ) { printf("<a href="https://www.jb51.cc/tag/s/" target="_blank" class="keywords">%s</a>",$key); } #按时间排序的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>列表

文件格式

./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