我怎样才能从返回在Perl文件句柄的方法读？

Question

我有一个返回文件句柄对象的方法，我想从手柄阅读。以下不起作用，因为该方法调用的直角支架被解释为输入读取器的闭合尖括号：

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

也就是说被解析为：

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

这显然是一个语法错误。有没有什么办法可以执行的角度操作中的一个方法调用，或者我需要把它分成两个步骤，也是这样吗？

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

Answer 1

你必须打破它;所述<>运营商期望像< STDIN一个类型团>，包含到一个文件句柄或类型团等< $跳频的基准的简单的标量变量>或类似<的* .c>为水珠（）函数的参数。在你的例子中，你实际上调用了glob（'$ object-'）。

<>实际上被解释为对readline（）的调用，所以如果你真的想要你可以说my $input = readline($object->get_handle());但我不确定这是干净的，特别是如果你要从句柄读取多次。

有关详细信息，请参见http://perldoc.perl.org/perlop.html#I%2fO-Operators。

Answer 2

您将无法使用<...>运营商这里阅读文件句柄，因为任何比<bareword>或<$scalar>更复杂的解释为glob(...)电话，所以没有通常的歧义招数将在这里工作。该<HANDLE>操作是readline HANDLE语法糖，让你可以写这样说：

my $input = readline $object->get_handle; 

但是，如果你在一个循环中这样做，这将是更有效的缓存手柄在一个标量。然后<...>运营商将按照您预期：

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

Answer 3

你可以考虑拼写<...>作为readline(...)代替，通过使用一个很好的常规语法，而不是一个特例可以避免这个问题。或者你可以将它分配给一个标量。你的选择。

Answer 4

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

或

use IO::Handle; 

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