$PATH="F://E-Book";
opendir(DIR,$PATH);
@array=readdir(DIR);
close(DIR);
foreach $fn(@array){
if ($fn ne '.' and $fn ne '..') {
print "$fn\n";
}
}
通过perl获得F盘下的所有文件名
最新推荐文章于 2021-05-09 18:05:02 发布
$PATH="F://E-Book";
opendir(DIR,$PATH);
@array=readdir(DIR);
close(DIR);
foreach $fn(@array){
if ($fn ne '.' and $fn ne '..') {
print "$fn\n";
}
}