Question

perl中 用file:find模块查找文件

假设text目录下有a,b,c三个子目录，每个子目录下都有一个名为summary.tcl的文件。现在要将每个summary.tcl文件中的一行关键字抓取出来，写进新的文件new.tcl，该怎么写
自己写的程序：
find (&wanted."/Work/text/") ;
open FF , ">new.tcl";
my @a;
sub wanted {
my $found = $_ ;
if ($found =~ /summary\.tcl$/) {
open my $F1 ,'<' , $File::Find::name ;
while (<$F1>) {
if (/^\s+Cell\/Chip\s(\S+)/) {
push @a , "$1\n" ;
}
}
close $F ;
}
}
print FF @a;

Answer 1

如果在UNIX或LINUX下，直接调用shell的find命令就行了。在WIN下，使用file::find模块，具体用法查阅perldoc