我编写了一个 perl 程序,从命令行获取一个正则表达式,并在当前目录中递归搜索某些文件名和文件类型,对每个正则表达式进行 grep,并输出结果,包括文件名和行号。[基本的 grep + 查找功能,我可以根据需要进入并自定义]
cat <<'EOF' >perlgrep2.pl
#!/usr/bin/env perl
$expr = join ' ', @ARGV;
my @filetypes = qw(cpp c h m txt log idl java pl csv);
my @filenames = qw(Makefile);
my $find="find . ";
my $nfirst = 0;
foreach(@filenames) {
$find .= " -o " if $nfirst++;
$find .= "-name \"$_\"";
}
foreach(@filetypes) {
$find .= " -o " if $nfirst++;
$find .= "-name \\*.$_";
}
@files=`$find`;
foreach(@files) {
s#^\./##;
chomp;
}
@ARGV = @files;
foreach(<>) {
print "$ARGV($.): $_" if m/\Q$expr/;
close ARGV if eof;
}
EOF
cat <<'EOF' >a.pl
print "hello ";
$a=1;
print "there";
EOF
cat <<'EOF' >b.pl
print "goodbye ";
print "all";
$a=1;
EOF
chmod ugo+x perlgrep2.pl
./perlgrep2.pl print
如果将其复制并粘贴到终端中,您将看到:
perlgrep2.pl(36): print "hello ";
perlgrep2.pl(0): print "there";
perlgrep2.pl(0): print "goodbye ";
perlgrep2.pl(0): print "all";
perlgrep2.pl(0): print "$ARGV($.): $_" if m/\Q$expr/;
这对我来说非常令人惊讶。该程序似乎正在运行,除了 $. 和 $ARGV 变量没有我预期的值。从变量的状态来看,当 perl 在 <> 上执行循环的第一次迭代时,它已经读取了所有三个文件(总共 36 行)。这是怎么回事 ?怎么修 ?这是 Perl 5.12.4。