溫馨提示×

perl遍歷文件夾怎么實現(xiàn)

小億
174
2023-11-22 02:54:46
欄目: 編程語言

在Perl中，可以使用opendir和readdir函數(shù)來遍歷文件夾。以下是一個示例代碼：

#!/usr/bin/perl

use strict;
use warnings;

# 指定要遍歷的文件夾路徑
my $dir = '/path/to/directory';

# 打開目錄
opendir(my $dh, $dir) or die "無法打開目錄: $!";

# 讀取目錄中的文件和子目錄
while (my $file = readdir($dh)) {
    # 忽略當(dāng)前目錄（.）和上級目錄（..）
    next if $file eq '.' or $file eq '..';

    # 構(gòu)建文件的完整路徑
    my $path = "$dir/$file";

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

# 關(guān)閉目錄
closedir($dh);

這段代碼會遍歷指定文件夾中的所有文件和子目錄，并打印它們的路徑。請注意，你需要將 /path/to/directory 替換為你要遍歷的實際文件夾路徑。

0 踩