Python客戶端和Perl服務器：打包和拆包字節發送/接收

Question

python_client.py

def send_one_message(sock, data): 
    length = len(data) 
    sock.sendall(struct.pack('!I', length)) 
    sock.sendall(data) 

perl_server.pl

sub ntohl { 
    unpack("I", pack("N", $_[0])); 
} 

my $line = ""; 
$client_socket->recv($line, 4); 
my $line_length = ntohl($line); 
print "expected to receive $line_length bytes\n"; 

$client_socket->recv($line, $line_length); 
print "$line\n"; 

我得到這個錯誤：在perl_server.pl

Argument "\0\0\0C" isn't numeric in pack

我不認爲我正確解包perl_server.pl

有什麼建議嗎？

Answer 1

我已經改變了再用ntohl

sub ntohl { 
    unpack("I", $_[0]); 
} 

和

sock.sendall(struct.pack('I', length))