BlogもどきのWeblog

プロフィール

GLANSHE
絵描き担当らしい

Total:　16221
Today:　61
Yesterday:　238

最新のトラックバック

カテゴリー

日記（266）
絵（32）
サークル活動（12）
愚痴（24）
ゼミ（19）
レビュー（11）
覚え書き（32）
Linux（32）
Java（3）
BlogPet（2）
駄目な瞬間（10）
プレイ日記（14）
Perl（5）
Diva（27）
未分類（27）

リンク

SpeakEasy
ワガハイは狸である
紗サの雑記帳
SiroKuro Page
ユーキの研究日誌
ふぇいたるろじっく
華ちゃんのシール日記
同人ど～らく
Power of Apple
エムビガ
EXTRA
空想の書
姫騎士道部
Side Holy
Close the World!!
全てがELになる

ニコ動MyListLink

Temporary1
Temporary2
えもぬシリーズ
【東方】30分フル原曲
リディアさんのMHF

[ perl ] readdirについて

2007-Nov-24

覚え書き

perlでreaddirを用いてディレクトリを読むと、デフォルトではよくわからない順番で並んでいます。
これは、ディレクトリのファイルがファイルシステムとして、ある種の構造体に格納されているのが原因で、

opendir DIR,$dir;
@entry_list = readdir DIR;
close DIR;

のように普通にディレクトリを読むと、構造体リストの順番で@dir_listにファイル名が格納されます。
これをファイル名でソートするには、

@sorted_entry_list = sort @entry_list;

のように、配列をsortします。
ディレクトリを先（もしくは後）に持ってきて、かつソートしたい場合は、

opendir DIR,$dir;
@entry_list = readdir DIR;

foreach $entry ( sort @entry_list ){
  if(-d "$dir/$entry"){
    push(@dir_list, $entry);
  }else{
    push(@file_list, $entry);
  }
}
push( @sorted_entry_list, (@dir_list, @file_list));
#push( @sorted_entry_list, (@file_list, @dir_list));
close DIR;

のような感じにするとよいかもです。

引用元

ところで、コンテンツが更新されたようです。

time stamp：2007/11/25 01:13:34
トラックバック（0）｜コメント（0）

この記事のトラックバックURL：

コメントを書く