{"id":4178,"date":"2014-05-16T17:49:49","date_gmt":"2014-05-16T08:49:49","guid":{"rendered":"http:\/\/www.vincentina.net\/?p=4178"},"modified":"2021-12-23T18:33:58","modified_gmt":"2021-12-23T09:33:58","slug":"perl%e3%81%a7udpechoserver","status":"publish","type":"post","link":"https:\/\/www.vincentina.net\/?p=4178","title":{"rendered":"Perl\u3067UDPEchoServer"},"content":{"rendered":"

\u4eca\u56de\u306f\u5b9f\u884c\u3059\u308b\u3068\u3001\u30a8\u30b3\u30fc<\/span>\u304c\u8fd4\u3063\u3066\u304d\u3066\u3044\u308b\u3051\u3069\u3001\u30a8\u30e9\u30fc<\/span>\u304c\u51fa\u3066\u3044\u308b\u3088\u3068\u3044\u3046\u3068\u3053\u308d\u304b\u3089\u59cb\u307e\u308a\u307e\u3059\u3002
\n\u30a8\u30b3\u30fc\u3068\u30a8\u30e9\u30fc\u304c\u4f3c\u3066\u3044\u308b\u306e\u3067\u6587\u5b57\u3092\u3067\u304b\u304f\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u3055\u3066\u3001TCP\/IP Socket in c\u3092Perl\u3067\u632f\u308a\u8fd4\u308b\u30b7\u30ea\u30fc\u30ba\u306e\u7b2c4\u5f3e\u3067\u3059\u3002<\/p>\n

\u4eca\u56de\u306fUDP\u306eEchoServer\u3067\u3059\u3002\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u304b\u3089\u6765\u305f\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8fd4\u3059\u3068\u3044\u3046\u5358\u7d14\u306a\u3082\u306e\u3067\u3059\u306a\u3002<\/p>\n

C\u8a00\u8a9e\u3067\u3084\u3063\u3066\u304d\u305f\u4e8b\u3068\u540c\u3058\u3053\u3068\u3092Perl\u3067\u3084\u3063\u3066\u3044\u308b\u3060\u3051\u3067\u3059\u304c\u3001\u3053\u308c\u304c\u306a\u304b\u306a\u304b\u52c9\u5f37\u306b\u306a\u308b\u4e8b\u304c\u591a\u3044\u3067\u3059\u3002Perl\u5165\u9580\u3068\u304b\u3092\u3084\u308b\u3088\u308a\u3088\u3063\u307d\u3069\u5438\u53ce\u7387\u304c\u3044\u3044\u3068\u304a\u3082\u3044\u307e\u3059\u3002<\/p>\n

\u5b9f\u884c\u7d50\u679c\u3067\u3059\u304c\u3001\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5834\u5408\u3068\u540c\u3058\u304f\u3001TCP\u3067\u4f5c\u3063\u305fEchoServer\u3092\u30d9\u30fc\u30b9\u306b\u3057\u307e\u3057\u3066\u3001UDP\u306b\u306f\u4e0d\u8981\u306a\u90e8\u5206\u3092\u3068\u3063\u3071\u3089\u3044\u3001UDP\u306e\u5834\u5408\u306a\u306e\u3067recv\u3068send\u306b\u66f8\u304d\u63db\u3048\u305f\u306e\u3067\u3054\u3056\u308b\u304c\u30011\u56de\u3067\u3068\u308a\u3042\u3048\u305a\u52d5\u3044\u3066\u3057\u307e\u3063\u305f\u306e\u3067\u307e\u305f\u3082\u3084\u904e\u7a0b\u306e\u90e8\u5206\u304c\u5927\u5e45\u306b\u7aef\u6298\u3089\u308c\u307e\u3059orz<\/p>\n

\u3060\u304c\u3001\u5148\u306f\u307e\u3060\u307e\u3060\u7d9a\u3044\u3066\u3044\u308b\u306e\u3067\u3054\u5b89\u5fc3\u3092\u30fb\u30fb\u30fb<\/p>\n

\u307e\u305a\u306f\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u306e\u5b9f\u884c\u7d50\u679c<\/p>\n

# perl UDPEchoClient.pl 192.168.24.61 Hello 500\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\n192.168.24.61\u306e500\u756a\u306b\u3044\u3063\u3066\u304d\u307e\u3059\u3002\r\nHello\u304c\u8fd4\u3063\u3066\u304d\u307e\u3057\u305f\u3002<\/pre>\n
\u30b5\u30fc\u30d0\u30fc\u306e\u5b9f\u884c\u7d50\u679c<\/p>\n
\r\n\r\n# perl UDPEchoServer.pl 500\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\nHello\u304c\u6765\u305f\u3088\u3002\r\nHandling client 192.168.24.63\r\nrecv() on closed socket SOCKET at UDPEchoServer.pl line 36.\r\nrecv failed \u4e0d\u6b63\u306a\u30d5\u30a1\u30a4\u30eb\u8a18\u8ff0\u5b50\u3067\u3059<\/pre>\n
\u3054\u89a7\u306e\u3088\u3046\u306b\u52d5\u4f5c\u306f\u3057\u3066\u3044\u308b\u3088\u3046\u306a\u306e\u3060\u3051\u3069\u3001\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u3044\u308b\u3093\u3067\u3059\u3002<\/p>\n
\u3088\uff5e\uff5e\u304f\u898b\u308b\u3068\u5206\u304b\u308b\u3093\u3060\u3051\u3069\u3001\u3053\u308c\u3063\u30662\u5de1\u76ee\u3067\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u3044\u308b\u4e8b\u304c\u5206\u304b\u308a\u307e\u3059\u3002<\/p>\n
\u30c7\u30d0\u30c3\u30b0\u3060\u3068\u3044\u3046\u4e8b\u3067\u3001\u3061\u3087\u3053\u3061\u3087\u3053\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5909\u3048\u306a\u304c\u3089\u5b9f\u884c\u3057\u3066\u3044\u308b\u3068\u30bd\u30b1\u30c3\u30c8\u3092\u9589\u3058\u3066\u3044\u308b\u304b\u3089\u3068\u3044\u3046\u4e8b\u304c\u5206\u304b\u308a\u307e\u3057\u305forz
\nTCP\/IP Socket in C\u306b\u3082\u66f8\u3044\u3066\u3042\u3063\u305f\u3093\u3060\u3051\u3069\u3001TCP\u30b5\u30fc\u30d0\u3067\u306f\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u6bce\u306baccept\u3092\u5b9f\u884c\u3057\u3066\u3001\u65b0\u3057\u3044\u30bd\u30b1\u30c3\u30c8\u3092\u53d6\u5f97\u3057\u307e\u3059\u304c\u3001UDP\u3067\u306f1\u3064\u306e\u30bd\u30b1\u30c3\u30c8\u3092\u3059\u3079\u3066\u306e\u901a\u4fe1\u306b\u4f7f\u3044\u307e\u3059\u3002
\n<\/span>\u5206\u304b\u3063\u305f\u3089\u30d0\u30ab\u306a\u9593\u9055\u3044\u3067\u3059\u3088\u306d\u3002
\n\u308f\u305f\u3057\u3063\u3066\u3001\u307b\u3093\u3068\u30d0\u30ab\u3002<\/p>\n
\u7d9a\u304d\u307e\u3057\u3066\u3001\u306a\u3093\u3068\u306a\u3057\u306bshutdown(SOCKET, 1)\u3092\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u305f\u3089<\/p>\n
# perl UDPEchoServer.pl 100\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\nHandling client 192.168.24.63\r\nHello\u304c\u6765\u305f\u3088\u3002\r\nHandling client 192.168.24.63\r\n\u304c\u6765\u305f\u3088\u3002\r\nsend failed<\/pre>\n
\u3053\u3046\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n
\u306a\u3093\u3067\u3084\u306d\u30fc\u3093\u3002<\/span>\u3068\u601d\u3044\u307e\u3057\u305f\u304c\u3001\u3053\u308c\u304c\u30b4\u30fc\u30eb\u3078\u306e\u9053\u3092\u3050\u3050\u3063\u3068\u8fd1\u3065\u3051\u307e\u3057\u305f\u3002
\n\u307e\u3055\u306b\u305f\u306a\u307c\u305f<\/span>\u3067\u3059\u306d\u3002\u307b\u3093\u3068\u306b\u305d\u3046\u601d\u3044\u307e\u3057\u305f\u3002<\/p>\n
recv\u95a2\u6570\u306b\u3064\u3044\u3066\u8abf\u3079\u3066\u307f\u308b\u3068<\/p>\n
\u901a\u5e38\u3001\u5f15\u6570\u3067\u6307\u5b9a\u3057\u305f\u53d7\u4fe1\u30d0\u30a4\u30c8\u6570\u3088\u308a\u5b9f\u969b\u306b\u53d7\u4fe1\u3057\u305f\u91cf\u304c\u5c11\u306a\u3044\u5834\u5408\r\n\u5f85\u6a5f\u305b\u305a\u76f4\u3061\u306b\u30c7\u30fc\u30bf\u3092\u8fd4\u3057\u307e\u3059\u3002<\/pre>\n
\u3068\u3044\u3046\u4e8b\u306a\u306e\u3067\u3001\u304c\u6765\u305f\u3088\u3002<\/span>\u304c\u5410\u304d\u51fa\u3055\u308c\u3066\u3044\u308b\u306e\u306f\u304a\u304b\u3057\u3044\u306e\u3060\u3002<\/p>\n
\u3055\u3089\u306b\u30c7\u30d0\u30c3\u30b0\u3092\u7d9a\u3051\u3066\u3044\u3063\u3066\u3001\u306a\u3093\u3068\u306a\u304f\u3060\u3051\u3069shutdown(SOCKET, 0)\u3092\u89e3\u9664\u3057\u3066\u307f\u305f\u3002
\n\u3053\u308c\u306f\u5de6\u304c\u30c7\u30a3\u30b9\u30af\u30ea\u30d7\u30bf\u3067\u53f3\u304c\u30d5\u30e9\u30b0\u3067\u3059\u304c\u30010\u306f\u8aad\u307f\u8fbc\u307f\u30011\u306f\u66f8\u304d\u8fbc\u307f\u3067\u3059\u3002
\n\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5834\u5408\u306f\u3053\u306eshutdown\u3092\u3064\u3051\u306a\u3044\u3068\u9001\u308a\u7d42\u308f\u3063\u305f\u3001\u53d7\u3051\u7d42\u308f\u3063\u305f\u3068\u3044\u3046\u51e6\u7406\u304c\u3055\u308c\u306a\u304b\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u305d\u308c\u306f\u3042\u304f\u307e\u3067\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u306e\u8a71\u3060\u3063\u305f\u3088\u3046\u3060\u3002<\/p>\n
\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5074\u306e\u5b9f\u884c\u7d50\u679c<\/p>\n
# perl UDPEchoServer.pl 100\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\nHandling client 192.168.24.63\r\nHello\u304c\u6765\u305f\u3088\u3002\r\nHandling client 192.168.24.63\r\nHello\u304c\u6765\u305f\u3088\u3002\r\nsend failed \u30d1\u30a4\u30d7\u304c\u5207\u65ad\u3055\u308c\u307e\u3057\u305f<\/pre>\n
\u3048\u30fc\u3068\u3001\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5074\u306esend\u304c\u30a8\u30e9\u30fc\u306a\u306e\u3067\u3001\u30b5\u30fc\u30d0\u30fc\u5074\u3067\u53d7\u3051\u53d6\u308a\u304c\u3067\u304d\u306a\u304b\u3063\u305f\u3068\u3044\u3046\u4e8b\u3060\u308d\u3046\u306d\u3002<\/p>\n
\u3053\u3053\u307e\u3067\u6765\u305f\u3089\u7b54\u3048\u306f\u5206\u304b\u3063\u305f\u3082\u540c\u7136\u3002<\/span>
\n\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5074\u3067\u306f\u91cd\u8981\u306a\u95a2\u6570\u3060\u3063\u305fshtudown\u304c\u901a\u4fe1\u3092\u59a8\u5bb3\u3057\u3066\u3044\u305f\u306e\u3067\u3057\u305f\u3002<\/p>\n
\u30b5\u30fc\u30d0\u30fc\u5074\u306f\u9001\u3089\u308c\u3066\u304d\u305f\u4fe1\u53f7\u3092\u8fd4\u3059\u3060\u3051\u306a\u306e\u3067\u3001\u30e1\u30c3\u30bb\u30fc\u30b8\u306e\u7d42\u308f\u308a\u3067\u3059\u3088\u3068\u3044\u3046\u95a2\u6570\u306f\u5fc5\u8981\u306a\u304b\u3063\u305f\u3093\u3060\u3002<\/p>\n
\u3067\u306f\u6700\u5f8c\u306b\u30bd\u30fc\u30b9\u3000UDPEchoServer.pl<\/p>\n
#UCPEcho\u30b5\u30fc\u30d0\u30fc\u30d7\u30ed\u30b0\u30e9\u30e0\r\n#!\/usr\/bin\/perl\r\n\r\nuse strict;\r\nuse warnings;\r\nuse Socket;\r\nuse IO::Handle;\r\n\r\n#\u30ad\u30e5\u30fc\u306e\u6700\u5927\u6570\r\nmy $ECHOMAX = 255;\r\n\r\n#\u5f15\u6570\u306e\u6570\u3092\u30c1\u30a7\u30c3\u30af\r\nif($#ARGV != 0)\r\n{\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print \"Usage : Program <Server Port>\\n\";\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 exit(1);\r\n}\r\n\r\n#\u30dd\u30fc\u30c8\u756a\u53f7\u3092\u6307\u5b9a\r\nmy $port = $ARGV[0];\r\n\r\n#TCP\u30bd\u30b1\u30c3\u30c8\u751f\u6210\r\nsocket(SOCKET, PF_INET, SOCK_DGRAM, 0) or die \"Socket failed $!\\n\";\r\n\r\n#\u30a2\u30c9\u30ec\u30b9\u69cb\u9020\u4f53\u3092\u4f5c\u6210\r\n#\u30dd\u30fc\u30c8\u3068\u30a2\u30c9\u30ec\u30b9\u3092\u30d1\u30c3\u30af\r\nmy $sock_addr = pack_sockaddr_in($port, INADDR_ANY);\r\n\r\n#\u30d0\u30a4\u30f3\u30c9\r\nbind(SOCKET, $sock_addr) or die \"bind failed $!\\n\";\r\n\r\nwhile(1)\r\n{\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 my $buf;\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 my $cldata = recv(SOCKET, $buf, $ECHOMAX, MSG_WAITALL) or die \"recv $!\";\r\n\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #\u3064\u3051\u3061\u3083\u30c0\u30e1\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #shutdown(SOCKET, 0);\r\n\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u306e\u60c5\u5831\u3092\u53d6\u5f97\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 my $client_addr = unpack_sockaddr_in($cldata);\r\n\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #aton\u306e\u9006\u3059\u306a\u308f\u3061\u30d0\u30a4\u30ca\u30ea\u304b\u3089\u5909\u63db\u3002\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 my $client_iaddr = inet_ntoa($client_addr);\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print \"Handling client $client_iaddr\\n\";\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print \"$buf\u304c\u6765\u305f\u3088\u3002\\n\";\r\n\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #\u63a5\u7d9a\u3057\u305f\u30b5\u30fc\u30d0\u3078\u30e1\u30c3\u30bb\u30fc\u30b8\u9001\u4fe1\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 send(SOCKET, $buf, 0, $cldata) or die \"send failed $!\\n\";\r\n\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #\u3064\u3051\u3061\u3083\u30c0\u30e1\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 #shutdown(SOCKET, 1);\r\n}\r\nexit;<\/pre>\n
 <\/p>\n
\u53c2\u8003\u30b5\u30a4\u30c8<\/p>\n
Perldoc.jp<\/a><\/p>\n
\u53c2\u8003\u6587\u732e<\/p>\n
TCP\/IP\u30bd\u30b1\u30c3\u30c8\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0C\u8a00\u8a9e\u7de8
\n\u5171\u8457\uff1aMichael J.Donahoo\/Kenneth L. calvert
\n\u8a33\uff1a\u5c0f\u9ad8\u77e5\u5b8f<\/p>\n
        
Tweet<\/a><\/div><\/div>\n
\n","protected":false},"excerpt":{"rendered":"
\u4eca\u56de\u306f\u5b9f\u884c\u3059\u308b\u3068\u3001\u30a8\u30b3\u30fc\u304c\u8fd4\u3063\u3066\u304d\u3066\u3044\u308b\u3051\u3069\u3001\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u3044\u308b\u3088\u3068\u3044\u3046\u3068\u3053\u308d\u304b\u3089\u59cb\u307e\u308a\u307e\u3059\u3002 \u30a8\u30b3\u30fc\u3068\u30a8\u30e9\u30fc\u304c\u4f3c\u3066\u3044\u308b\u306e\u3067\u6587\u5b57\u3092\u3067\u304b\u304f\u3057\u307e\u3057\u305f\u3002 \u3055\u3066\u3001TCP\/IP Socket in c\u3092Perl\u3067\u632f\u308a\u8fd4\u308b\u30b7\u30ea\u30fc\u30ba\u306e\u7b2c … “Perl\u3067UDPEchoServer” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[106],"tags":[],"class_list":["post-4178","post","type-post","status-publish","format-standard","hentry","category-programming"],"_links":{"self":[{"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/posts\/4178","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4178"}],"version-history":[{"count":1,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/posts\/4178\/revisions"}],"predecessor-version":[{"id":7758,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/posts\/4178\/revisions\/7758"}],"wp:attachment":[{"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4178"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4178"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4178"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}