打开文件句柄或分配标准输出

Question

我正在开发一个程序，用户可以传递 -o file 选项，然后输出应该定向到该文件。否则，它应该转到标准输出。

为了检索选项，我使用了 getopt long 模块，这不是问题。问题是我想用该文件创建一个文件句柄或如果未设置该选项则将标准输出分配给它。

if ($opt) {
    open OUTPUT, ">", $file;
} else {
    open OUTPUT, # ???
}

那是因为这样，稍后在我的代码中我可以：

print OUTPUT "...";

而不用担心 OUTPUT 是标准输出还是用户指定的文件。这可能吗？如果我在这里做的设计不好，请告诉我。

Answer 1

这将是一个关于如何使用 select 的好例子。

use strict;
use warnings;
use autodie;

my $fh;
if ($opt) {
    open $fh, '>', $file;
    select $fh;
}

print "This goes to the file if $opt is defined, otherwise to STDOUT."

Answer 2

查看 open 文档。最简单的方法是重新打开 STDOUT 本身，并且不在代码中使用文件句柄。

if ($opt) {
    open(STDOUT, ">", $file);
}
...

print "this goes to $file or STDOUT\n";

（当然添加一些错误检查。）

Answer 3

无法分配诸如OUTPUT之类的常量项。使用诸如 $output 之类的变量效果更好。例如：

my ($output, $display_filename);
if ($opt)
{
    if ($opt eq '-')
    {
        $display_filename = 'stdout';
        $output = *STDOUT;
    }
    else
    {
        $display_filename = $opt;
        open($output, '>', $opt) or
            die("Cannot open $opt for writing: $!\n");
    }
}

这样程序可以打印到标准输出和/或输出文件：

print $output "This might go to a file\n";
print "Data written to $display_filename\n" if ($verbose);