perl - 如何从 hashref 中的文件句柄中读取一行

Question

我在哈希引用中有一个套接字句柄:$self->{socket} .
我想使用 $line = <$self->{socket}> 读取它，但出现语法错误。

我知道了

print {$self->{socket}} "Hello";

将负责打印，但是

$line = < {$self->{socket}} >;

不起作用。

如何做到这一点而又不会像这样弄乱我的代码:

$fh = $self->{socket};
$line = < $fh >;

谢谢。

Answer 1

尝试使用 readline，如 http://www.perlmonks.org/?node_id=776168 所述它仍然分配给 $_ 并检查它是否已定义。

$ perl -MO=Deparse -e'while (readline($fh)) {}'
while (defined($_ = <$fh>)) {
    ();
}
-e syntax OK