如何从 Perl 中返回文件句柄的方法中读取内容？

Question

我有一个对象，它的方法返回一个文件句柄，我想从该句柄中读取数据。以下内容不起作用，因为方法调用的右尖括号被解释为输入读取器的右尖括号：

my $input = <$object->get_handle()>;

被解析为：

my $input = ( < $object- > ) get_handle() >;

这显然是一个语法错误。有什么方法可以在角度运算符中执行方法调用，或者我需要将其分为这样的两个步骤吗？

my $handle = $object->get_handle();
my $input = <$handle>;

Answer 1

您可以考虑将 ...> 拼写为 readline(<而是使用strong>...)，它通过使用良好的常规语法而不是特殊情况来避免该问题。或者您可以将其分配给标量。你的选择。

Answer 2

你必须把它打破； <>运算符需要像这样的 typeglob，一个包含对文件句柄或像 <$fh> 这样的 typeglob 的引用的简单标量变量，或者像 <*.c> 这样的 glob() 函数的参数。在您的示例中，您实际上正在调用 glob('$object-')。

<>实际上被解释为对 readline() 的调用，因此如果您确实想要，您可以说 my $input = readline( $object->get_handle() ); 我不确定这是否更干净不过，特别是如果您要多次读取句柄的话。

请参阅 http://perldoc.perl.org/perlop.html#I%2fO - 操作员了解详细信息。

Answer 3

my $input = readline($object->get_handle());

或者

use IO::Handle;

my $input = $object->get_handle()->getline();

Answer 4

您将无法在此处使用 <...> 运算符来读取文件句柄，因为任何比 或 更复杂的内容><$scalar> 被解释为 glob(...) 调用，因此通常的消歧技巧在这里不起作用。 运算符是 readline HANDLE 的语法糖，因此您可以这样编写：

my $input = readline $object->get_handle;

但是，如果您要在循环中执行此操作，它将是将句柄缓存在标量中会更有效。然后 <...> 运算符将按您的预期工作：

my $handle = $object->get_handle;
while (my $input = <$handle>) {
    ...
}