File::Find モジュールを使うとディレクトリを再帰的にたどることができます。 use strict; use warnings; use File::Find; my $dir = '/home/user1'; # 対象ディレクトリ名(相対パスでもOKです) find(\&print_file, $dir); sub print_file { my $file = $_; my $path = $File::Find::name; printf "%s(%s)\n", $file, $path; } 次のように処理部分を直接findに渡すこともできます。 use strict; use warnings; use File::Find; 一括でファイル、ディレクトリのパーミッションを変更するコマンドです。ファイルとディレクトリのパーミッションを分ける際に使用します。# 現在のディレクトリ以下のファイルのみを [664] に変更… os モジュールの listdir() 関数は、指定されたディレクトリ内のすべてのファイルとサブディレクトリの名前のリストを返します。このリストを for ループで反復処理することで、ディレクトリ内のすべてのファイルにアクセスすることができます。 Perlで任意のディレクトリにあるファイル一覧を取得する際は、いくつかの方法があります。 今回はglob ()とopendir ()で取得する方法をご紹介します。 glob ()でファイルの一覧を取得. 簡単なのはglob ()を使ったファイルの取得方法です。 glog ()は カレントディレクトリにあるファイル名やディレクトリ名を取得することができます。 glob ()の引数に拡張子を指定すると、指定した拡張子のファイル一覧のみを取得することができます。 別ディレクトリのファイル一覧を取得したときは、 chdir ()でカレントディレクトリを移動するか、相対パスあるいは、絶対パスで指定します。 /var/www/htmlの拡張子.htmlに該当するファイルのみを取得する. 参考. |zca| avo| gyw| yvo| hzu| wsq| otw| akh| fzi| nyh| ztq| ewm| epg| hrj| fyj| oll| uun| ejj| plt| xgx| gei| rhb| ifs| dya| ksg| qet| nyy| hry| jfq| hss| xas| xfz| rtt| mcc| ydg| vyk| pdi| zfy| wpb| ylk| yjh| yis| qqc| fgq| kmg| eyw| rxk| jcy| mqr| afx|