Perl 套接字发送哈希

Question

我正在尝试在 Perl 中创建一个套接字客户端。服务器端是一个运行在本地主机上的C程序。

我必须通过套接字发送散列。这是我正在使用的一段代码。

sub applyGlobalConfig {
    my ($globalConfig, $ignoreData) = @_;

    my $socket = IO::Socket::INET->new(PeerAddr => $PEER_HOST,
                                       PeerPort => $PEER_PORT,
                                       Proto    => "tcp",
                                       Type     => SOCK_STREAM)
          or die "Couldn't connect to $PEER_HOST:$PEER_PORT : $@\n";

    my $reconfigResult;

    print $socket "$113\n";

    close($socket);

    unless ($reconfigResult) {
        return 0;
    }

    return ERR_NULL;
}

现在，我的问题是，$globalConfig 将包含一个哈希引用，我想通过套接字发送它。我无法弄清楚。我在谷歌上搜索并找到了一些关于 Dumper 的参考资料，但不太了解。如何发送哈希？

Answer 1

要通过套接字发送数据结构，您必须将其“序列化”为字节流。然后接收程序必须对其进行反序列化以重新组装数据结构。如果接收程序期望流采用特定格式，则发送程序必须生成期望的格式。

如果您同时编写双方，那么您可以选择一种对您的情况有意义的序列化格式，例如 JSON 或 XML，这两种格式都可以表示 Perl 哈希。但是，在不了解您的具体情况的更多细节的情况下，这就是可以以答案的方式提供的所有信息。

Answer 2

我更愿意为此使用Storable 模块。示例：

接收端：

use strict;
use IO::Socket::INET;
use Storable;
use Data::Dumper;

my   $sock = IO::Socket::INET->new(Listen    => 5, LocalAddr => 'host',
                                 LocalPort => 9000,  Proto     => 'tcp');
while( my $s = $sock->accept ) {
    my $struct = Storable::fd_retrieve($s);
    print Dumper($struct);
}

发送端：

use strict;
use IO::Socket::INET;
use Storable;

my   $sock = IO::Socket::INET->new(PeerAddr => 'host',  PeerPort => 9000,
                 Type     => SOCK_STREAM, Proto     => 'tcp') || die "Fail: $!";
my $struct = {
    a => 1,
    b => [2,3,4]
};
Storable::nstore_fd($struct, $sock);

通过从 i386 Linux 发送到 amd64 FreeBSD 进行测试。

您也可以使用 Data::Dumper 从哈希生成字符串，然后通过网络发送，但它的方法很脏且有问题。

UPD：

但是，我正在努力如何将 perl 端的哈希值转换为以空格分隔的字符串。

尝试使用join/map组合：

my $serialized = join("\n", map { "$_ ".$struct->{$_} } keys %$struct)."\n";

可能在 C 端它更容易使用以空字符结尾的字符串：

my $keyvalue_count = scalar keys(%$struct);
my $serialized = join("\0", map { "$_\0".$struct->{$_} } keys %$struct)."\0";

在这种简单的情况下，我更喜欢使用最后一个变体，因为它是 C 原生的。