#!/usr/bin/perl
opendir (DIR,'./test/test') or die "Cont't open directory,$!";
while ($file=readdir DIR) {
print "$file\n"; ## 打开一个目录,并列了目录内的所有文件
}
closedir DIR;
print "*****************************************\n";
opendir (TEST ,'./test/test') or die "Cont't open directory,$!";
foreach (sort grep(/^.*\.txt$/,readdir(TEST))) {
print "$_\n"; ## 打开一个目录,显示本目录内,*.txt对应的所有文件
}
closedir TEST;
print exp(1);
显示一个目录内所有文件,及有条件的过滤某些文件
最新推荐文章于 2022-10-11 20:34:06 发布