Perlでディレクトリを走査する方法

2年 ago
海斗, 葵
1 minute

Perl では opendir, readdir 関数を使用してディレクトリを操作できます。以下にサンプルを示します。

#!/usr/bin/perl

use strict;
use warnings;

# 指定要遍历的文件夹路径
my $dir = '/path/to/directory';

# 打开目录
opendir(my $dh, $dir) or die "无法打开目录: $!";

# 读取目录中的文件和子目录
while (my $file = readdir($dh)) {
    # 忽略当前目录（.）和上级目录（..）
    next if $file eq '.' or $file eq '..';

    # 构建文件的完整路径
    my $path = "$dir/$file";

    # 打印文件路径
    print "$path\n";
}

# 关闭目录
closedir($dh);

このコードは、指定したディレクトリ内のすべてのファイルとサブディレクトリを繰り返し、そのパスを出力します。 /path/to/directory を、実際に繰り返したいフォルダーパスに置き換える必要があることに注意してください。

bannerAds