如何从哈希引用中的套接字句柄读取一行且避免代码冗余？

这个问题我之前也碰到过，Perl的语法解析在这里确实有点“认死理”——直接用<$self->{socket}>会让解析器搞不清你到底要做什么，因为它会把$self->{socket}当成字符串去做glob匹配，而不是当成文件句柄来读取，自然就触发语法错误了。

下面给你两种不冗余的解决方案：

• 方法一：用括号明确表达式优先级
  给哈希元素表达式加上括号，强制解析器先计算出套接字句柄，再作为读取对象：

  my $line = <($self->{socket})>;
  

  这种写法和你原来的思路最接近，只是多了一对括号，完全没有冗余，还能让解析器正确识别你的意图。

• 方法二：直接调用readline函数
  尖括号读取文件句柄其实是readline函数的语法糖，直接调用函数可以完全避免语法歧义：

  my $line = readline($self->{socket});
  

  这种写法可读性更强，代码同样简洁，也不需要额外的冗余代码。

为什么原写法会报错？ #

Perl的尖括号运算符有双重身份：

1. 作为文件句柄读取：比如<FH>，此时它等价于readline(FH)；
2. 作为glob匹配：比如<*.pl>，此时会匹配当前目录下的所有Perl文件。

当你写<$self->{socket}>时，解析器会默认把$self->{socket}当作字符串（而不是文件句柄），尝试执行glob匹配，这就和你想要读取套接字的意图完全相悖，最终触发语法错误。

内容的提问来源于stack exchange，提问作者Vic K