BlogもどきのWeblog

プロフィール

GLANSHE
絵描き担当らしい

Total:　16121
Today:　199
Yesterday:　257

最新のトラックバック

カテゴリー

日記（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：

HandyGestures

2007-Nov-24

未分類

古今のタブブラウザとかでマウスジェスチャ使ってると、エクスプローラとかIEでもつい右クリしながら移動しようとしてしまう。

ので、エクスプローラでもマウスジェスチャないかなーと思って探してみたら普通にあった。

HandyGestures

レジストリは一応使ってるらしい。アンインストールすれば消えるらしいけど。
とりあえずタスクアイコン増やしたりしなかったので導入してみた。
動作は軽い。ジェスチャの設定変更も可能。IE7対応。
エクスプローラのみ、IEのみの動作設定も可能。
IEのブラウザエンジン使ってるLunascapeでは発動しなかった。Lunascape固有で設定したマウスジェスチャがちゃんと動いてた。
Sleipnirは入ってないからｼﾗﾈ。

time stamp：2007/11/24 08:57:57
トラックバック（0）｜コメント（0）
コメントを書く

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

2007年12月