Stnard's Diary

« 変わった？ | メイン | 亡霊退治 »

2001年12月14日

▽[blog] で

仕方ないのでちょっと探ってみる．すると opendir & readdir で Directry 内の hnf files を読んでいる訳なんだが，どうもその順番がおかしい．んで，当該箇所(getFileList)を下記のように変更．

sub getFileList ($) {
    my $dir = $_[0];
    my @files;
    my @unsortedfiles;

    opendir DIR, $dir or die "can't open directory: $!";
    @unsortedfiles = grep /^d\d{8}.hnf$/, readdir DIR;  # Y10K
    closedir DIR;

    @files = sort { $a cmp $b } @unsortedfiles;

    @filelist = ();
    push @filelist, @files;

    foreach $file (@files) {
        $filedir{$file} = $dir;
    }
}

要するに sort しただけ．本当は更新日時とかで sort しなけりゃならないんだろうが，今の趣旨は最近の日付のが欲しいのでこれでいいことにする．

Posted by Rust Stnard at 00:00

最近の日記

カテゴリー

リンク

Stnard's Diaryを登録 by BlogPeople

GBで異世界へ旅立つ
Powered by


blog SEO tool

過去の日記

2009年8月[1]
2007年10月[1]
2007年9月[3]
2007年8月[3]
2007年7月[3]
2007年6月[1]
2007年5月[4]
2007年4月[6]
2007年3月[3]
2007年2月[7]
2007年1月[6]
2006年12月[5]
2006年11月[10]
2006年10月[5]
2006年9月[11]
2006年8月[10]
2006年7月[8]
2006年6月[7]
2006年5月[9]
2006年4月[7]
2006年3月[14]
2006年2月[13]
2006年1月[11]
2005年12月[9]
2005年11月[16]
2005年10月[19]
2005年9月[13]
2005年8月[17]
2005年7月[23]
2005年6月[26]
2005年5月[27]
2005年4月[26]
2005年3月[30]
2005年2月[24]
2005年1月[17]
2004年12月[12]
2004年11月[30]
2004年10月[25]
2004年9月[31]
2004年8月[23]
2004年7月[49]
2004年6月[34]
2004年5月[55]
2004年4月[43]
2004年3月[49]
2004年2月[40]
2004年1月[30]
2003年12月[40]
2003年11月[35]
2003年10月[67]
2003年9月[40]
2003年8月[33]
2003年7月[35]
2003年6月[41]
2003年5月[53]
2003年4月[32]
2003年3月[59]
2003年2月[47]
2003年1月[57]
2002年12月[72]
2002年11月[55]
2002年10月[42]
2002年9月[47]
2002年8月[28]
2002年7月[38]
2002年6月[41]
2002年5月[39]
2002年4月[53]
2002年3月[54]
2002年2月[21]
2002年1月[50]
2001年12月[74]
2001年11月[52]
2001年10月[62]
2001年9月[68]
2001年8月[34]
2001年7月[55]
2001年6月[54]
2001年5月[2]
2001年4月[4]
2001年3月[9]
2001年2月[1]
2001年1月[7]
1999年12月[2]
1999年11月[6]
1999年10月[1]
1999年9月[3]
1999年7月[3]
1999年6月[11]
1999年2月[2]
1998年10月[5]
1998年7月[4]
1998年6月[17]
1998年5月[23]
1998年4月[8]
1998年3月[14]

Misc.

gooリサーチモニターに登録！