Perl 把一堆檔案 按照 檔案名稱字中的時間 進行排序

#!/usr/bin/perl </p><p>open dl ,"list" || die "open error$!";<br />%hash;<br />while(<dl>)<br />{<br /> #print $_;<br /> my ($a,$b,$c,$d) = split('_',$_);<br /> my ($d,$e) = split (//./,$c);<br /> $hash{$_}=$d;<br />#做成一個Hash key是檔案名稱字 value是時間戳記。<br />}</p><p>foreach my $key ( sort { $hash{$a} <=> $hash{$b} } keys %hash ) {<br /> printf("%s", $key);<br />}<br />#按時間排序的檔案清單

檔案格式

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