文件目录结构如下:
方法一:使用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;
运行结果: