Perl - 将数组传递给子程序

Question

我正在学习 Perl 并且正在尝试编写一个脚本，该脚本将模式和文件列表作为命令行参数并将它们传递给子例程，然后子例程打开每个文件并打印匹配的行模式。下面的代码有效；但是，它在打印第一个文件的行后停止，甚至不触及第二个文件。我在这里错过了什么？

#!/usr/bin/perl
use strict;
use warnings;

 sub grep_file 
 {
  my $pattern = shift;
  my @files = shift;

  foreach my $doc (@files) 
  {
    open FILE, $doc;
    while (my $line = <FILE>) 
    {
      if ($line =~ m/$pattern/) 
      {
        print $line;
      }
    }
  }

grep_file @ARGV;

Answer 1

Shift 从您的参数中弹出一个元素(参见:http://perldoc.perl.org/functions/shift.html)。

所以@files 只能包含一个值。

试试

sub foo
{
 my $one = shift @_;
 my @files = @_;
 print $one."\n";
 print @files;
}

foo(@ARGV);