为什么我的 Perl 祝福文件句柄不使用“can('print')”返回 true？

Question

由于某种原因，我无法使用 Expect.pm 的 log_file 方法获取文件句柄。我最初获得了有关 如何将文件句柄传递给 Perl Expect 的 log_file 函数的帮助？，其中建议我使用 IO::Handle 文件句柄传递给该方法。这似乎是一个不同的问题，所以我想我应该开始一个新问题。

这是 Expect.pm 的有问题的部分：

if (ref($file) ne 'CODE') {
  croak "Given logfile doesn't have a 'print' method"
    if not $fh->can("print");
  $fh->autoflush(1);        # so logfile is up to date
}

所以，然后，我尝试了这个示例代码：

use IO::Handle;
open $fh, ">>", "file.out" or die "Can't open file";
$fh->print("Hello, world");
if ($fh->can("print"))
{
  print "Yes\n";
}
else
{
  print "No\n";
}

当我运行此代码时，我得到两个（在我看来）冲突的项目。一个文件，其中一行显示“Hello, world”，输出为“No”。在我看来，$fh->can 行应该返回 true。我这里错了吗？

Answer 1

奇怪的是，看起来您需要创建一个真正的 IO::File 对象以使 can 方法起作用。尝试

use IO::File;

my $fh = IO::File->new("file.out", ">>")
    or die "Couldn't open file: $!";

Answer 2

IO::Handle 不会重载 open() 函数，因此您实际上并没有在 IO::Handle 中获取 IO::Handle 对象代码>$fh。我不知道为什么 $fh->print("Hello, world") 行有效（可能是因为您正在调用 print() 函数，并且当您执行诸如 $foo->function 之类的操作时，它相当于 function $foo，因此您实际上是像通常期望的那样打印到文件句柄）。

如果您将代码更改为以下内容：

use strict;
use IO::Handle;
open my $fh, ">>", "file.out" or die "Can't open file";
my $iofh = new IO::Handle;
$iofh->fdopen( $fh, "w" );
$iofh->print("Hello, world");
if ($iofh->can("print"))
{
  print "Yes\n";
}
else
{
  print "No\n";
}

...那么您的代码将按照您的预期运行。至少，对我来说是这样！