有关遍历指定文件想要过滤掉指定目录

lockeyou

我的程序是借助
my $path = '/usr/db';
find( \&wanted1, $path );
sub wanted1 {
        if ( -f $File::Find::name ) {
                if ( $File::Find::name =~ /\.php$/ ) {                        #查找后缀为.php文件
                        my $kw={'exec'=>0,'evel'=>0,'popen'=>0,'system'=>0,'passthru'=>0,'curl_exec'=>0};
                        open (FH,"<","$File::Find::name") || die "open file failure.\n";
                        while (<FH>){
                                chomp;
                                my $line = $_;
                                my $count=0;
                                foreach(keys(%$kw)){
                                        $kw->{$_}+=$count if $count=$line=~s/$_//g;
                                }
                        }
                        close FH;
                        my @merge = values(%$kw);
                        sub add_num{
                                my$sum=0;
                                foreach $_(@_){
                                        $sum+=$_;
                                }
                                $sum;
                        }
                        my $res = add_num(@merge);       
                        if($res > 0){
                                open (LOG,">>",$initialize_file) || die "open file failure.\n";
                                print LOG "$File::Find::name&Counts_kw=$res\n";
                                close LOG;       
                                undef(%$kw);
                        }
                }
        }
}

我的程序是查所有php里面的关键字,写入文本,
现在$path 里面有个子目录下的文件我不想查,该怎么办哇
比如\usr\db\test\test1\test2 里面的所有php文件我都不想找里面的关键字,
有没有方法哇

lockeyou

有个想法就是可否用正则在
$File::Find::name =~ /\.php$/ 里面进行处理哇,

lockeyou

有个想法就是可否用正则在
$File::Find::name =~ /\.php$/ 里面进行处理哇,

rubyish

try:

1. #!/usr/bin/perl
   
2. my ( $dir, $ext ) = ( '/tmp/p', 'pl' );
   
3. my @exclude = ( '/tmp/p/a', '/tmp/p/b' );
   
4. my $exclude = join '|', map { /\/$/ ? $_ : "$_/" } @exclude;
   
5. 
   
6. sub find {
   
7.     my ( $P, $T, $X ) = @_;
   
8.     grep /\.$T$/, map { -d $_ ? find( $_, $T, $X ) : $_ }
   
9.       grep !/^$X/, glob "$P/*";
   
10. }
    
11. 
    
12. my @files = find( $dir, $ext, $exclude );

复制代码

lockeyou

回复 4# rubyish

我把我手头工作做完就试试这个哈,谢谢你,要是可以就帮我大忙了