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上使用我自己的服务器提交会话，并进行类似的分配。此外，我可以通过telnet发送消息并通过我的同事的服务器接收答案。我怀疑Python和Perl中的默认套接字设置存在一些差异。知道可能是什么问题吗？

UPD： perl 5.20.1 python 3.4.2

Answer 1

0！我讨厌这个！最初在服务器端是一个错误给出相同的效果。但是在纠正之后，我忘记了服务器正在等待\ n完成请求。

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

1 个答案: