我在下面找到了代码示例。它在文件中搜索文本，递归遍历子目录，但我想指定递归遍历的第一级子目录的一个子集。
。假设我在目录C:中，其中包含目录bin, src和Windows，并且我想递归地搜索包含文本"include"的.h和.c文件，我会使用下面的MWE运行以下代码，其中我的代码在textsearch.pl中:
perl textsearch.pl include "(.)(h|c)($)"
如何修改此程序，使其只搜索bin和src而不搜索Windows，同时仍递归到bin和src的子目录?例如，我希望能够做以下事情:
perl textsearch.pl include "(.)(h|c)($)" src,bin
我以为File::Find::Rule会有帮助，但我不知道如何在这里应用它。
还有，如果有其他更简单的方法来做这一切，我很乐意听到。
MWE I found:
use strict;
use warnings;
use Cwd;
use File::Find;
use File::Basename;
my ($in_rgx,$in_files,$simple,$matches,$cwd);
sub trim($) {
my $string = shift;
$string =~ s/[rn]+//g;
$string =~ s/s+$//;
return $string;
}
# 1: Get input arguments
if ($#ARGV == 0) { # *** ONE ARGUMENT *** (search pattern)
($in_rgx,$in_files,$simple) = ($ARGV[0],".",1);
}
elsif ($#ARGV == 1) { # *** TWO ARGUMENTS *** (search pattern + filename or flag)
if (($ARGV[1] eq '-e') || ($ARGV[1] eq '-E')) { # extended
($in_rgx,$in_files,$simple) = ($ARGV[0],".",0);
}
else { # simple
($in_rgx,$in_files,$simple) = ($ARGV[0],$ARGV[1],1);
}
}
elsif ($#ARGV == 2) { # *** THREE ARGUMENTS *** (search pattern + filename + flag)
($in_rgx,$in_files,$simple) = ($ARGV[0],$ARGV[1],0);
}
else { # *** HELP *** (either no arguments or more than three)
print "Usage: ".basename($0)." regexpattern [filepattern] [-E]nn" .
"Hints:n" .
"*) If you need spaces in your pattern, put quotation marks around it.n" .
"*) To do a case insensitive match, use (?i) preceding the pattern.n" .
"*) Both patterns are regular expressions, allowing powerful searches.n" .
"*) The file pattern is always case insensitive.n";
exit;
}
if ($in_files eq '.') { # 2: Output search header
print basename($0).": Searching all files for "${in_rgx}"... (".(($simple) ? "simple" : "extended").")n";
}
else {
print basename($0).": Searching files matching "${in_files}" for "${in_rgx}"... (".(($simple) ? "simple" : "extended").")n";
}
if ($simple) { print "n"; } # 3: Traverse directory tree using subroutine 'findfiles'
($matches,$cwd) = (0,cwd);
$cwd =~ s,/,\,g;
find(&findfiles, $cwd);
sub findfiles { # 4: Used to iterate through each result
my $file = $File::Find::name; # complete path to the file
$file =~ s,/,\,g; # substitute all / with
return unless -f $file; # process files (-f), not directories
return unless $_ =~ m/$in_files/io; # check if file matches input regex
# /io = case-insensitive, compiled
# $_ = just the file name, no path
# 5: Open file and search for matching contents
open F, $file or print "n* Couldn't open ${file}nn" && return;
if ($simple) { # *** SIMPLE OUTPUT ***
while (<F>) {
if (m/($in_rgx)/o) { # /o = compile regex
# file matched!
$matches++;
print "---" . # begin printing file header
sprintf("%04d", $matches) . # file number, padded with 4 zeros
"--- ".$file."n"; # file name, keep original name
# end of file header
last; # go on to the next file
}
}
} # *** END OF SIMPLE OUTPUT ***
else { # *** EXTENDED OUTPUT ***
my $found = 0; # used to keep track of first match
my $binary = (-B $file) ? 1 : 0; # don't show contents if file is bin
$file =~ s/^Q$cwd//g; # remove current working directory
# Q = quotemeta, escapes string
while (<F>) {
if (m/($in_rgx)/o) { # /o = compile regex
# file matched!
if (!$found) { # first matching line for the file
$found = 1;
$matches++;
print "n---" . # begin printing file header
sprintf("%04d", $matches) . # file number, padded with 4 zeros
"--- ".uc($file)."n"; # file name, converted to uppercase
# end of file header
if ($binary) { # file is binary, do not show content
print "Binary file.n";
last;
}
}
print "[$.]".trim($_)."n"; # print line number and contents
#last; # uncomment to only show first line
}
}
} # *** END OF EXTENDED OUTPUT ***
# 6: Close the file and move on to the next result
close F;
}
#7: Show search statistics
print "nMatches: ${matches}n";
# Search Engine Source: http://www.adp-gmbh.ch/perl/find.html
# Rewritten by Christopher Hilding, Dec 02 2006
# Formatting adjusted to my liking by Rene Nyffenegger, Dec 22 2006
find()方法的第二个参数可以是要扫描的目录列表。将$cwd替换为@some_list_of_directories，您应该可以继续