从文本文件中读取所有目录

Question

我有一个名为paths.txt的文本文件，其中包含文件系统路径，如下所示

/prod/bcs/lgnp/clientapp/empstmt/parm/
/prod/bcs/hdpp/clientapp/trprpsp/parm/
/prod/bcs/hdpp/clientapp/trpnonq/parm/
/prod/bcs/lgnp/clientapp/kmpndwl/parm/

我正在尝试使用Perl读取这些目录中的所有数据。

我试过这样，但它无法打开目录。

#!/usr/bin/perl -w

use strict;

my ($path, $file, @files);

open(IN, "paths.txt");

foreach $path ( <IN> ) {

    opendir(DIR, $path) or die "Cannot open $path\n";

    while ( $file = readdir(DIR) ) {
        print "$file";
    }

    closedir(DIR);
}

close(IN);