Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/perl/11.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/backbone.js/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Perl 查找::文件::规则排除子目录_Perl - Fatal编程技术网

Perl 查找::文件::规则排除子目录

Perl 查找::文件::规则排除子目录,perl,Perl,我有以下代码: use strict; use warnings; use File::Find::Rule; my @text = File::Find::Rule->file() ->name('*.txt') ->in('c:\windows','c:\temp'); 并且只想找到c:\windows下的所有.txt文件,而不是c:\windows\子文件夹下的

我有以下代码:

use strict;
use warnings;
use File::Find::Rule;

my @text = File::Find::Rule->file()
                           ->name('*.txt')
                           ->in('c:\windows','c:\temp');

并且只想找到c:\windows下的所有.txt文件,而不是c:\windows\子文件夹下的所有.txt文件,如c:\windows\test1等。。是否可以使用
File::Find::Rule

执行类似操作您可以通过使用
->maxdepth(1)
避免递归

IIRC,它需要位于其他过滤器之前。

另请参见