perl - 在 Perl 中将文件句柄作为函数 arg 传递

Question

我希望能够拥有一个打印到文件但不打开文件的函数——而是应该将一个已经打开的文件句柄传递给它。这样文件打开和关闭只在调用代码块中发生一次。

我试过了：

sub teeOutput
{
    my $str = $_[0];
    my $hndl = $_[1];

    #print to file
    print $hndl $str;
    #print to STDOUT
    print $str;
}

然后在调用时

open(RPTHANDLE, ">", $rptFilePath) || die("Could not open file ".$rptFilePath);

&teeOutput('blahblah', RPTHANDLE);
&teeOutput('xyz', RPTHANDLE);

close(RPTHANDLE);

但这没有用。

知道如何做到这一点吗？

谢谢

Answer 1

首先，停止对文件句柄使用全局变量。

open(my $RPTHANDLE, ">", $rptFilePath)
   or die("Could not open file $rptFilePath: $!\n");

那么……嗯，没有“那么”。

teeOutput($RPTHANDLE, 'blahblah');
teeOutput($RPTHANDLE, 'xyz');
close($RPTHANDLE);

笔记：

• 我将论点反转为teeOutput更理智的东西。
• 我删除了指令 ( &) 以覆盖teeOutput的原型。teeOutput甚至没有。

（但如果您必须处理 glob，请使用teeOutput(\*STDERR, ...);.）