perl 获取目录下的文件

文件目录结构如下：

方法一：使用glob操作（获得绝对路径）

文件夹未带相关描述时仅显示当前路径：

my $dir ='F:\VirtualShare\NRT\2019183_14_02_igu1888';
my @files = glob( $dir );
foreach (@files ){
   print $_ . "\n";
}

运行结果：

文件夹未带文件描述时仅显示当前目录下的文件：

my $dir ='F:\VirtualShare\NRT\2019183_14_02_igu1888\*';
my @files = glob( $dir );
foreach (@files ){
   print $_ . "\n";
}

运行结果：

方法二：使用句柄的方式（获取相对路径下的文件名）

my $dir ='F:\VirtualShare\NRT\2019183_14_02_igu1888';
opendir(DIR, $dir) || die "Can't open directory $dir"; 
my @dots = readdir(DIR); 
foreach (@dots){ 
        print; 
        print "\n"; 
} 
closedir DIR; 

运行结果：