perl - 在 perl 中转储文件句柄号

Question

我们可以在 perl 中转储文件句柄号的值吗？

例如，当我写function(STDOUT)它应该给出 o/p 1。

我试过了

my $fh = \*STDOUT;
print Dumper $fh

它打印$VAR1 = \*::STDOUT

谢谢，拉维

Answer 1

您可以使用fileno()：

print fileno($fh);