python - 在 Python 和 Perl 套接字之间交换数据

Question

我的同事用 Perl 写了一个简单的服务器，它监听端口并等待消息，然后发送响应:

#!/usr/bin/perl


use strict;
use IO::Select;
use IO::Socket::INET;

use constant SIZE => 1024;
use constant EOL => "\x0D\x0A";

my %user_input;

if(scalar @ARGV < 2)
{
die "Usage: server.pl ip port\n";
}

my ($serv_ip, $serv_port) = @ARGV;

my $socket = IO::Socket::INET->new(LocalAddr => $serv_ip, LocalPort => $serv_port, Listen => 20, Proto => 'tcp', Reuse => 1) or die $!;
my $select = IO::Select->new($socket) or die $!;

print "Started\n";

while(1)
      {
        my @r = $select->can_read;
        my @w = $select->can_write(.1);

      for my $handle (@r) {
                  if($handle eq $socket) {
                      my $connect = $socket->accept();
                      $select->add($connect);
                                          }
                      else {
                          my $user_input;
                          while(sysread $handle, $_, SIZE) {
                                  $user_input .= $_;
                                  last if $_ =~ /\x0A/ or length $user_input >= SIZE;
                                                        }
                                  printf ("Input:$user_input\n");
                                    if(length $user_input > 0) {
                                      $user_input = handle_request($user_input, $handle);
                                          if($user_input) {
                                             printf("Output:$user_input\n");
                                            syswrite $_, $user_input, SIZE for @w;
                                                          }
                                                } else {
                                             $select->remove($handle);
                                             close $handle;
                                                        }
                            }
                         }
        }

##################
sub handle_request
{
  my ($user_input, $handle) = @_;

my $error_begin = "Hello world!";
$error_begin .= EOL;

return $error_begin;
} 

别问。我不理解珀尔并且害怕他。

我在 Python 3 上编写了一个简单的脚本，用于发送消息并等待响应:

import socket
import json

s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.settimeout(2)
s.connect(('host', 9999))
data = 'message'
s.sendall(data.encode())

data = s.recv(1024)
print(data)

s.close()

当我运行它时引发异常:

data = s.recv(1024)
socket.timeout: timed out

这意味着我的请求出现了，但响应没有出现。但我的同事在他的服务器上看到了我的请求。同时，我在 Python 上成功提交了与我自己的服务器的 session ，并进行了类似的分配。此外，我可以通过 telnet 与同事的服务器发送消息并接收答案。我怀疑 Python 和 Perl 中的默认套接字设置存在一些差异。知道可能是什么问题吗？

更新:珀尔 5.20.1 python 3.4.2

Answer 1

哦!我讨厌这个!最初在服务器端出现了一个错误，产生了相同的效果。但是当它纠正时，我忘记了服务器正在等待\n 完成请求。