请帮助怎样在目录下查找所有子目录下的特定文件并且打开

peakgod

请帮助 怎样在目录下查找所有子目录下的特定文件并且打开。例如：
父目录1下有3个子目录分别为11，12，13。
每个子目录里有格式是txt文件，现在想把每个子目录（11，12，和13）里是txt的文件找到并且打开。
请朋友们帮助！多谢了

怒剑狂啸

@DIR=`find 父目录1 -name *.txt`;#做完这步再循环open即可

glennhill

windows下要复杂很多，
$dir="D:\\perl_test\\";
chdir($dir);
opendir(DIR,$dir);
@arr1=glob('*');
@arr3 = grep{-d "$dir$_"} @arr1;#获取子目录名；重复直到到目标，然后用open打开文件

兰花仙子

递归查找子目录，你可以参考Stas Berkman的这篇旧code：

http://stason.org/works/scripts/recurs.pl

glennhill

更好的方法是使用File::Find模块

use File::Find;
$dir="你的父目录";
chdir($dir);
find sub {push(@DIR,$File::Find::name) if ($File::Find::name=~m/.txt/)},'.';
foreach $dirs(@DIR)
{
open(IN,$dir);
...
...
}