转储文件句柄号在perl中

Question

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

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

我试过

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

打印$VAR1 = \*::STDOUT

谢谢， 拉维

Answer 1

您可以使用fileno()：

print fileno($fh);