codeなにがし::Perlで階層のあるディレクトリを走査する

Perlで階層のあるディレクトリを走査する: l-w-i

ソースコードID：　535
登録日時：　2008/06/16 15:02
最終更新日時：　2008/06/16 16:08
アクセス数：　1564
タグ：　 perl 再帰ファイルリスト

0 users

説明

台北猫々さんやponsukeさんがいろいろな言語で「○○で階層のあるディレクトリを走査する」というコードを公開されているので僕もPerl版を作ってみました。

mikedaさんのコーディングに似せてあります。

(*) File::Find モジュールを使うという意見もありますが...(笑)

ソースコード

履歴表示コピペ用

use File::Basename;

# entry : サーチするディレクトリ
# depth : 階層の深さ(tabインテンドの表示数)
sub my_walk
{
  my $entry = $_[0];
  my $depth = $_[1];

  my $type  = "";

  $type = "(d)" if (-d $entry);
  $type = "(s)" if (-l $entry);

  print "|\t" x $depth, "+---->", basename($entry), $type, "\n";

  return if (! -d $entry) || (-l $entry);

  opendir(DIR, $entry);
  my @list = sort readdir(DIR);

  foreach my $name (@list)
  {
    next if $name eq '.' || $name eq '..';

    my_walk("${entry}/${name}", $depth+1);
  }

  closedir(DIR);
}

$entry = $ARGV[0];
$depth = $ARGV[1];

my_walk($entry, $depth);

2：mikeda
2008/06/16 15:33

うぎゃあああああ。参考にしていただいてありがとうございます><
テキトウすぎたと思ってたのでちょっと恥ずかしいですがww
・ツリー表示もっと見やすくならないかなーとか
・ファイルとディレクトリの区別つけられてないなーとか
・変数名がディレクトリとは限らないのに$dirって書いてるなー
とかこっそり思ってたのでついでに直してくださいwwww

あと今のままだと上位階層へのシンボリックリンクがあったときに無限ループに入っちゃうような？

3：l-w-i
2008/06/16 16:07

> mikedaさん

コメントありがとうございます。

mikedaさんの修正許可がおりたので(笑)、以下を修正しました。

> ・ファイルとディレクトリの区別つけられてないなーとか

ディレクトリには(d)を、シンボリックリンクには(s)を付加しました。

> ・変数名がディレクトリとは限らないのに$dirって書いてるなー

$entryに変更しました。

> 上位階層へのシンボリックリンクがあったときに無限ループに入っちゃうような？

シンボリックリンクは再帰対象外にしました(Perlでは-lでシンボリックリンクかどうか調べられます)。

あと、ツリー表示のフォーマットは気に入ってます。