Perl ディレクトリー内のファイル名を得る
2023年12月3日
Last Updated on 2023年12月3日 by Dotmatrix
ディレクトリー内のファイル名を得る
#!/usr/bin/perl
use DirHandle; #モジュールを読み込みます
$dir = new DirHandle ‘.’; #ルートディレクトリーを読み込みます
while($data = $dir -> read){
print $data.”\n”; #ファイルを表示します
}
$dir -> close; #モジュールを閉じます
1;
モジュールがない場合は、入れてください。
ダウンロードしてuse lib;でも良いですけど。
cpan[1]> install DirHandle
これでディレクトリーのファイル一覧が得られます
＜表示結果＞
# perl ‘/home/hirano/Desktop/dir.pl’
.dbus
.bashrc.original
.local
.cache
.bashrc
..
