5

我编写了一个 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。

4

1 回答 1

10

你正在使用foreach(<>)你应该使用的地方while(<>)。将在开始迭代之前foreach(<>)将每个文件读@ARGV入一个临时列表。

于 2013-05-22T17:10:05.297 回答