「Path::Class」の版間の差分

提供: dsk's note
移動: 案内、検索
細 (→‎ディレクトリ配下のディレクトリとファイルを表示)
細
1行目: 1行目:
 +
{{google/ad/01}}
 +
 
===ディレクトリ配下にあるファイルリストを作成（再帰的）===
 
===ディレクトリ配下にあるファイルリストを作成（再帰的）===
 
<syntaxhighlight lang="perl">
 
<syntaxhighlight lang="perl">
30行目: 32行目:
 
}
 
}
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
 +
[[Category: perl]]
 +
{{google/ad/01}}

2015年5月12日 (火) 05:03時点における版

ディレクトリ配下にあるファイルリストを作成（再帰的）

my @files;
Path::Class::Dir->new("/home/dsktnk/www/")->recurse(
    callback => sub {
        my $file = shift;
        return if $file->is_dir; #ディレクトリはスキップ
        push(@files, $file);
    },
);

ディレクトリ配下のディレクトリとファイルを表示

my @dir = dir($path)->children;
@dir = sort {$b->is_dir <=> $a->is_dir} @dir;
 
for my $d(@dir){
  my $basename = $d->basename;
  my $fileurl = $d->relative;
  my $mtime = localtime($d->stat->mtime);
 
  if ($d->is_dir){
    print qq|<b>$basename</b>｜|;
  }
 
  elsif($d->is_dir ne 1){
    print qq|<br>$basename</a>　[$mtime]|;
  }
}

「http://dsktnk.sakura.ne.jp/mw/index.php?title=Path::Class&oldid=1798」から取得