opendir(DIR,'c:/');
while(my $file = readdir(DIR)){
print $file,"\n";
}
closedir(DIR)
opendir(DIR,'c:/');
while(my $file = readdir(DIR)){
print $file,"\n";
}
closedir(DIR)
本文标题：Perl 语言获得目录下的所有文件的文件名
本文链接：https://www.haomeiwen.com/subject/solnxttx.html
网友评论