STDOUT 是什么类型，我如何选择写入它？

Question

STDOUT 有“类型”吗？

printf STDERR ("STDOUT = %s\n", STDOUT);
printf STDERR ("\*STDOUT = %s\n", *STDOUT);
printf STDERR ("\\\*STDOUT = %s\n", \*STDOUT);

生产：

STDOUT = STDOUT
*STDOUT = *main::STDOUT
\*STDOUT = GLOB(0x600078848)

我了解*main::STDOUT 和GLOB(0x600078848) 条目。 “裸词”让我很好奇。

我问是因为我想将一个类似文件句柄的参数传递给方法调用。在“C”中，我会使用文件描述符或文件 *。我希望它默认为 STDOUT。我所做的是：

$OUT_FILE_HANDLE = \*STDOUT;
if(@ARGV > 0 ) {
    open($OUT_FILE_HANDLE, ">", "$ARGV[0]") or die $!;
}

它有效，但我不知道我做了什么。我搞砸了STDOUT吗？我怀疑我已经“破坏”（覆盖）了 STDOUT，这不是我想要的。

请原谅复合问题；他们似乎是相关的。

Answer 1

来自perlvar：

以数字或标点字符开头的 Perl 标识符不受 package 声明的影响，并且始终强制包含在包 main 中；它们也免于出现strict 'vars' 错误。其他一些名称也可以通过这些方式获得豁免：[...] STDOUT

所以，STDOUT 是一个包含预先打开的文件句柄的全局变量。

来自perlfunc：

如果 FILEHANDLE 是未定义的标量变量（或数组或哈希元素），则自动激活新的文件句柄，这意味着该变量被分配了对新分配的匿名文件句柄的引用。否则如果 FILEHANDLE 是一个表达式，它的值就是真正的文件句柄。

您的$OUT_FILE_HANDLE 不是未定义的，因此打开的是它的值STDOUT。 AFAIK，如果你打开一个已经打开的句柄，它会先隐式关闭。

有几种方法可以做你想做的事。从上面的引用中可以明显看出第一点——不要在open 之前定义$OUT_FILE_HANDLE：

if (@ARGV > 0 ) {
  open($OUT_FILE_HANDLE, ">", "$ARGV[0]") or die $!;
} else {
  $OUT_FILE_HANDLE = \*STDOUT;
}
# do stuff to $OUT_FILE_HANDLE

另一种是使用select，这样就不需要传递文件句柄了：

if (@ARGV > 0 ) {
  open($OUT_FILE_HANDLE, ">", "$ARGV[0]") or die $!;
  select $OUT_FILE_HANDLE;
}
# do stuff (without specifying a file handle)
select STDOUT;

Answer 2

创建一个词法文件句柄作为STDOUT 的副本并根据需要对其进行操作

sub manip_fh { 
    my ($fh) = @_;
    say $fh "hi";                              # goes to STDOUT
    open my $fh, '>', 'a_file.txt' or die $!;  # now it's to a file
    say $fh "hello";
}

open my $fh, '>&', STDOUT;  # via dup2

manip_fh($fh);

say "hi";  # still goes where STDOUT went before being dup-ed (terminal)

这个新的、独立的文件句柄可以重新打开到另一个资源，而不影响STDOUT。见open。

问题中的$OUT_FILE_HANDLE = \*STDOUT; 创建了一个别名，因此STDOUT 在“新”更改时确实会更改。你可以通过打印typeglob来查看

our $NEW = \*STDOUT;
say *{$main::NEW};    #--> *main::STDOUT

或从符号表中打印IO 槽

say for *{$main::NEW}{IO}, *{$main::{STDOUT}}{IO};

并看到（对象字符串化为）相同（例如IO::File=IO(0x1a8ca50)）。

当它使用open 和模式>& 被欺骗时，如第一个代码sn-p（但作为全局our）它打印*main::NEW，其IO::File 对象与@ 不同987654337@。 （将其设为全局 our 以便它在符号表中用于此检查，但不能真正使用； 最好有一个词法。）

Answer 3

您的这部分问题没有得到回答：

“裸词”让我很好奇。

没有其他含义的标识符是自己产生的字符串文字。^[1]例如，foo 与 'foo' 相同。

$ perl -e'my $x = foo; print "$x\n";'
foo

这很容易出错，所以我们使用use strict qw( subs ); 来防止这种情况发生。

$ perl -e'use strict; my $x = foo; print "$x\n";'
Bareword "foo" not allowed while "strict subs" in use at -e line 1.
Execution of -e aborted due to compilation errors.

---

1. 请参阅this 了解 Perl 可以分配的其他含义。