perl - 如何序列化和反序列化发送到套接字的哈希值？

Question

我正在编写两个脚本:客户端和服务器。客户端将其自身连接到服务器，并且必须输入凭据。我想通过哈希将那些凭据发送出去，所以我将它们序列化，将它们发送到服务器套接字，然后在服务器脚本中反序列化哈希。

以下是相关的服务器脚本代码:

$server = IO::Socket::INET->new( Proto => tcp,
    LocalPort => 25,
    Listen => SOMAXCONN,
    Reuse => 1) or die "cannot connect to port $port at localhost";
while (my $new_socket = $serveur->accept())
{
    $new_socket->autoflush(1);
    $line = <$new_socket>;
    my %hashUserInfos = %{thaw($line)};

    my $username = $hashInfosUtilisateur{'username'};
    my $password = $hashInfosUtilisateur{'password'};
}

这是相关的客户端脚本代码:

my $connection = IO::Socket::INET->new(Proto => $protocol,
    PeerAddr => $destination,
    PeerPort => $port) or die "Impossible de se connecter sur le port $port a l'adresse $destination";

print "Nom d'usager:\n";
$username = <STDIN>;
print "Mot de passe:\n";

my $password = <STDIN>;
my $hashedPasword = md5_hex($password);

my %userInfos = ('username' => $username, 'password' => $hashedPassword);
my $serializedInfos = freeze \%userInfos;

print $connection $serializedInfos;

我面临的问题是，当我尝试反序列化哈希值时:

my %hashUserInfos = %{thaw($line)};

我收到错误消息:

Magic number checking on storable string failed

我也尝试使用 nfreeze序列化我的哈希，但是在那种情况下，我得到了这个错误，而不是上面的错误:

Can't use an undefined values as a HASH reference

我在这里犯了什么错误？

Answer 1

正如@choroba在评论中所说，您只能读取服务器中的一行，尽管您可以通过读取服务器中的更多行来解决该问题，但您可能希望将换行符用作记录定界符。

通过删除从用户名和密码中读取的换行符，可以使冻结仅使用一行:chomp($username);和chomp($password);
您也可以对换行符进行编码，尽管这有点骇人听闻，而且不是很简单的证明。编码:$serializedInfos =~ s/\n/\\n/g;解码:$line =~ s/\\n/\n/g;
或者，您可以更改为仅使用一行的序列化，例如JSON，而不是当前使用的Storage。