[技巧] Perl中获取目录下文件名

大致有两种方法可以使用

1.opendir

1. use strict;
   
2. 
   
3. my $path="d:\\"; #设置查询的目录
   
4. opendir(TEMPDIR, $path) or die "can't open it:$!";
   
5. my @dir = grep -d, readdir TEMPDIR; #-d表示选出目录文件，还可以换成其它表达式
   
6. print join "\n",@dir;
   
7. close TEMPDIR;

复制代码

2.glob

1. use strict;
   
2. 
   
3. my $path="d:\\*";
   
4. my @dir=glob($path);
   
5. 
   
6. foreach (@dir)
   
7. {
   
8.     print;
   
9.     print "\n";
   
10. }

复制代码

两者的区别：
opendir读取的是纯粹的目录和文件名，不包含路径；如：a.txt
glob获得的目录和文件名带有路径，是全路径文件和目录名。如：d:\a.txt