我如何告诉 Perl 函数从特殊的 ARGV 句柄中读取文件？

Question

在 perldoc perlvar 中，我读到了以下内容：

请注意，目前“ARGV”仅具有 其神奇功效在“<>”中 操作员;在其他地方它只是一个简单的 最后一个对应的文件句柄 由“<>”打开的文件。尤其， 将“*ARGV”作为参数传递给 需要文件句柄的函数可能 不会导致你的功能 自动读取全部内容 @ARGV 中的文件。

那么，我如何将 *ARGV （或类似的东西）作为参数传递给需要文件句柄的函数，并让该函数读取 < 中的所有文件代码>@ARGV？

Answer 1

继续并传入 *ARGV 类型 glob 或 \*ARGV 及其引用。只需确保最终使用它的函数是通过 <$fh> 运算符或 readline($fh)（其底层功能等效项）来实现的。

perlvar 联机帮助页中引用的段落中解决的问题只是想提醒您，如果您有任何操作，您将无法触发 ARGV 的 magic open在句柄上使用除readline之外的其他读取机制，例如read、sysread或getc。

运行它来向自己证明它是有效的：

sub mycat {
    my $fh = shift;
    print "$ARGV $.: $_" while <$fh>;
}
mycat(*ARGV);

将其放入文件中，然后使用多个文件参数运行它：

% perl mycat ./mycat //`pwd`/mycat ~/mycat
./mycat 1: sub mycat {
./mycat 2:     my $fh = shift;
./mycat 3:     print "$ARGV $.: $_" while <$fh>;
./mycat 4: } 
./mycat 5: mycat(*ARGV);
///home/tchrist/mycat 6: sub mycat {
///home/tchrist/mycat 7:     my $fh = shift;
///home/tchrist/mycat 8:     print "$ARGV $.: $_" while <$fh>;
///home/tchrist/mycat 9: } 
///home/tchrist/mycat 10: mycat(*ARGV);
/home/tchrist/mycat 11: sub mycat {
/home/tchrist/mycat 12:     my $fh = shift;
/home/tchrist/mycat 13:     print "$ARGV $.: $_" while <$fh>;
/home/tchrist/mycat 14: } 
/home/tchrist/mycat 15: mycat(*ARGV);

看到了吗？效果很好。

Answer 2

迭代重载对象时，您可以重新分派到 <>：

{package ReadARGV;
    sub new {bless []}
    use overload '<>' => sub {<>};
}

sub reader {
    my $fh = shift;
    local $_;
    print while <$fh>;
}

reader(ReadARGV->new);

ReadARGV 包包含一个简单的对象构造函数 new，然后重载 > 运算符来简单地调用<>。

Answer 3

你可以用cat来伪造它（在Unix系统上），

open FAKE_ARGV, "cat @ARGV |";
function_expecting_filehandle(*FAKE_ARGV);
...

这样你就失去了一些魔力（$ARGV，$.）。

我确信也有一种方法可以处理绑定的文件句柄（请参阅 perltie ）。