請(qǐng)幫助怎樣在目錄下查找所有子目錄下的特定文件并且打開

peakgod

請(qǐng)幫助 怎樣在目錄下查找所有子目錄下的特定文件并且打開。例如：
父目錄1下有3個(gè)子目錄分別為11，12，13。
每個(gè)子目錄里有格式是txt文件，現(xiàn)在想把每個(gè)子目錄（11，12，和13）里是txt的文件找到并且打開。
請(qǐng)朋友們幫助！多謝了

怒劍狂嘯

@DIR=`find 父目錄1 -name *.txt`;#做完這步再循環(huán)open即可

glennhill

windows下要復(fù)雜很多，
$dir="D:\\perl_test\\";
chdir($dir);
opendir(DIR,$dir);
@arr1=glob('*');
@arr3 = grep{-d "$dir$_"} @arr1;#獲取子目錄名；重復(fù)直到到目標(biāo)，然后用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);
...
...
}