「Path::Class」の版間の差分
提供: dsk's note
細 (→ディレクトリ配下のディレクトリとファイルを表示) |
|||
| 22行目: | 22行目: | ||
if ($d->is_dir){ | if ($d->is_dir){ | ||
| − | print qq|<b | + | print qq|<b>$basename</b>｜|; |
} | } | ||
elsif($d->is_dir ne 1){ | elsif($d->is_dir ne 1){ | ||
| − | print qq|<br | + | print qq|<br>$basename</a> [$mtime]|; |
} | } | ||
} | } | ||
</syntaxhighlight> | </syntaxhighlight> | ||
2015年5月12日 (火) 05:02時点における版
ディレクトリ配下にあるファイルリストを作成（再帰的）
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]|; } }
