perlでTCPプロトコルを使用してrecv（）とsend（）の戻り値をチェックする方法は？

Question

私は、client and serverサンプルをPerlでTCP protocolを使って書いています。 だから私はsend()とrecv()関数を使用しました。 私はrecv()の戻り値を取得しようとしました。 サンプルコードでは、私は私のコードを実行すると、それは任意の値を印刷しない、

my $return_value; 
$return_value = recv($client_socket, $data, 50, 0); 
print "return value is: $return_value\n"; 

です。たとえば ：

return value is: 

はその後、私は任意の戻り値を取得していないにも関わらず、下記のリンクをお読みください。 return value of recv() function in perl

どうすればこの問題を解決できますか？

ありがとうございました。

Answer 1

エラーが発生したことを示す、おそらくundefです。^[1]。

use Socket qw(unpack_sockaddr_in); 

defined($return_value) 
    or die("Can't recv: $!\n"); 

my ($peer_port, $peer_addr) = unpack_sockaddr_in($return_value); 

あなたはすでに通信している相手のアドレスとポートを知っているので、あまり役に立ちません。これにより、なぜrecv（sysreadの代わりに）とTCPのような接続されたストリーミングプロトコルを使用しているのかという疑問が浮上しますか？あなたが時々あなたが要求した50文字未満になることは分かりますか？

---

1. 常にuse strict; use warnings 'all';を使用！ $return_valueがundefの場合、"return value is: $return_value\n"は警告しています。