当谈到 Perl 中的套接字编程时,我想知道一件事。我正在尝试通过我的套接字发送两个变量。它有效,我可以发送两个,但我想一个接一个地接收它们。让我向您展示我的代码和我得到的输出:
服务器
my $var1 = 200;
chomp($var1);
$socket->send($var1);
my $var2 = 300;
chomp($var2);
$socket->send($var2);
客户
$socket->recv(my $var1, 4000);
chomp($var1);
$socket->recv(my $var2, 4000);
chomp($var2);
print "From server: My height is: $var1 cm, weight is: $var2 kg\n";
好吧,我的预期输出应该是:来自服务器:我的身高是:400 厘米,体重是:300 厘米。相反,我的输出如下所示:来自服务器:我的身高是:400300 厘米,体重是:
好吧,我不明白为什么我的代码是错误的。我不应该像这样一个接一个地接收数据吗?我最终将如何解决这个问题以正确接收数据?