如何通过网络套接字发送 Perl 哈希值？

Question

我正在开发一个由服务器和多个客户端组成的工具。 客户端创建需要通过网络套接字发送到服务器的哈希值。

我认为 nstore 是正确的做法，但我找不到在服务器上检索数据的方法。

谁能告诉我如何正确执行此操作？

问候尼克

PS：我知道我可以以某种字符串格式写入数据并在服务器上重建它，但我想知道是否可以避免这种情况。

Answer 1

发送：

Storable::nstore_fd( \%hash, $socket );

检索：

my $ref = Storable::fd_retrieve( $socket );

我想这就是您所需要的。如果您不知道如何创建套接字——或者没有启动它的协议——我认为这是一个更紧迫的问题。前者请参见 IO::Socket::INET 。

Answer 2

作为已发布解决方案的替代方案，您可以使用 YAML 或 JSON 也是如此。

Answer 3

您可以将 Data::Dump 和 eval 结合起来。这个想法是序列化你的数据结构（哈希）、传输和解码（评估）：

$a = { ... }
$serializable_a = Data::Dump::dump($a)

# transmit && receive

$a_clone = eval( $serializable_a_received ) ;