{"id":4176,"date":"2014-05-15T12:57:06","date_gmt":"2014-05-15T03:57:06","guid":{"rendered":"http:\/\/www.vincentina.net\/?p=4176"},"modified":"2014-05-15T12:57:06","modified_gmt":"2014-05-15T03:57:06","slug":"perl%e3%81%a7udpechoclient","status":"publish","type":"post","link":"https:\/\/www.vincentina.net\/?p=4176","title":{"rendered":"Perl\u3067UDPEchoClient"},"content":{"rendered":"<p>TCP\/IP Socket in c\u3092Perl\u3067\u632f\u308a\u8fd4\u308b\u30b7\u30ea\u30fc\u30ba\u306e\u7b2c3\u5f3e\u3067\u3059\u3002<\/p>\n<p>\u4eca\u307e\u3067\u306e\u53cd\u7701\u3092\u8e0f\u307e\u3048\u3066\u4eca\u5ea6\u306f\u904e\u7a0b\u3082\u66f8\u3044\u3066\u307f\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3060\u3002<br \/>\n\u30d9\u30fc\u30b9\u306fTCPEchoServer.pl\u3092\u4f7f\u3046\u3093\u3067\u3001\u307e\u305a\u306fSOCK_STREAM\u3092SOCK_DGRAM\u306b\u66f8\u304d\u63db\u3048\u305f\u3060\u3051\u3067\u3069\u3093\u306a\u6319\u52d5\u306b\u306a\u308b\u304b\u898b\u3066\u307f\u308b\u3002<\/p>\n<pre>socket(SOCKET, PF_INET, SOCK_STREAM, 0) or die \"Socket faild\\n\";\r\nsocket(SOCKET, PF_INET, SOCK_DGRAM, 0) or die \"Socket faild\\n\";<\/pre>\n<p>\u6319\u52d5\u304c\u5206\u304b\u3089\u306a\u3044\u306e\u3067\u5225\u306e\u30db\u30b9\u30c8\u3067\u30a8\u30b3\u30fc\u30b5\u30fc\u30d0\u30fc\u3092\u7acb\u3061\u4e0a\u3052\u3066tcpdump\u3067udp\u3092\u76e3\u8996\u3057\u3066\u308b\u3093\u3060\u304c\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u5074\u3067\u3082\u30a8\u30e9\u30fc\u51fa\u306a\u3044\u3057\u3001\u3046\u3093\u3068\u3082\u3059\u3093\u3068\u3082\u306a\u3093\u3068\u3082\u8a00\u308f\u306a\u304b\u3063\u305f\u3068\u3082\u3002<\/p>\n<p>\u7d9a\u3044\u3066TCP\u306b\u306f\u5fc5\u8981\u306a\u3044\u30b3\u30cd\u30af\u30c8\u3092\u524a\u9664\u3059\u308b\u3002<br \/>\nTCP\/IP\u3060\u3068\u9589\u3056\u3055\u308c\u305f\u6249\u306f\u958b\u3051\u306a\u3044\u306a\u3041\u306a\u3093\u3066\u601d\u3063\u305f\u3051\u3069\u3001\u3069\u3093\u306a\u306b\u5927\u304d\u306a\u9632\u706b\u58c1\u304c\u3042\u3063\u3066\u3082\u8d85\u3048\u3066\u307f\u305b\u308b\u304b\u3089\u304d\u3063\u3068\u3000\u3063\u3066\u3044\u3046\u6c17\u6301\u3061\u304c\u5927\u4e8b\u3002<\/p>\n<p>Print\u3060\u3068\u4f55\u3082\u8d77\u3053\u3089\u306a\u3044\u3088\u3046\u306a\u306e\u3067\u3001\u304a\u3068\u306a\u3057\u304fsend\u3067\u3044\u3053\u3046\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u3093\u3067\u3001send\u3067\u3084\u3063\u305f\u3089\u30c7\u30fc\u30bf\u306f\u30b5\u30fc\u30d0\u30fc\u306b\u6765\u307e\u3057\u305f\u3002<\/p>\n<p>\u203b\u3053\u306e\u4ef6\u306b\u3064\u3044\u3066\u306fPerldoc\u306b\u8a18\u8ff0\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<pre>UDP \u306f\u30d0\u30a4\u30c8\u30b9\u30c8\u30ea\u30fc\u30e0 <i>\u3067\u306f\u306a\u304f<\/i> \u3001\u305d\u306e\u3088\u3046\u306b\u6271\u3046\u3079\u304d\u3067\u3082\u3042\u308a\u307e\u305b\u3093\u3002\r\n\u3053\u308c\u306f stdio(\u3064\u307e\u308a print() \u3084\u305d\u306e\u89aa\u621a) \u306e\u3088\u3046\u306a\u5185\u90e8\u30d0\u30c3\u30d5\u30a1\u30ea\u30f3\u30b0\r\n\u4ed8\u304d\u306e I\/O \u6a5f\u69cb\u3092\u7279\u306b\u6271\u3044\u306b\u304f\u304f\u3057\u307e\u3059\u3002 \u4ee5\u4e0b\u306e\u4f8b\u306e\u3088\u3046\u306b\u3001syswrite() \u304b\u3001\r\n\u3088\u308a\u3088\u3044 send() \u3092\u4f7f\u3063\u3066\u304f\u3060\u3055\u3044\u3002<\/pre>\n<p>\u3068\u3044\u3046\u4e8b\u3067\u3057\u305f\u3002Perldoc\u3055\u3093\u306f Perl \u306e\u516c\u5f0f\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3001\u30e2\u30b8\u30e5\u30fc\u30eb\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8\u3092\u65e5\u672c\u8a9e\u306b\u7ffb\u8a33\u3057\u305f\u3082\u306e\u3092\u8868\u793a\u3059\u308b\u30b5\u30a4\u30c8\u3067\u3059\u3002<\/p>\n<p>\u3067\u306f\u3001\u30b5\u30fc\u30d0\u30fc\u5074\u306etcpdump\u306e\u69d8\u5b50\u3002<\/p>\n<pre>Handling client 192.168.24.63\r\n21:52:37.998026 IP 192.168.24.63.57744 &gt; test2.net.sieve-filter: UDP, length 1\r\n21:52:37.998109 IP test2.net.sieve-filter &gt; 192.168.24.63.57744: UDP, length 1<\/pre>\n<p>\u5f53\u7136\u306a\u304c\u3089\u4eca\u306e\u307e\u307e\u3058\u3083\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5074\u3067\u30e1\u30c3\u30bb\u30fc\u30b8\u306f\u898b\u308c\u306a\u3044\u3002<\/p>\n<pre># perl UDPEchoClient.pl 192.168.24.61 hello 2000\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\n192.168.24.61\u306e2000\u756a\u306b\u3044\u3063\u3066\u304d\u307e\u3059\u3002<\/pre>\n<p>\u3066\u306a\u308f\u3051\u3067\u3001recv\u3092\u3057\u3088\u3046\u3002<br \/>\n\u3053\u3093\u306a\u611f\u3058\u3067\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<pre>send(SOCKET, $EchoWord, 0, $sock_addr) or die \"send failed $!\\n\";\r\n\r\nmy $buf;\r\nrecv(SOCKET, $buf, 4, 0) or die \"recv failed $!\\n\";\r\nprint \"$buf\\n\";<\/pre>\n<p>\u7d50\u679c\u3000\u304a\u3063\u3068\u3001<span style=\"font-size: 14pt;\">\u30d0\u30c3\u30d5\u30a1\u304c\u8db3\u308a\u306a\u3044\uff01<\/span><\/p>\n<pre># perl UDPEchoClient.pl 192.168.24.61 hello 2000\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\n192.168.24.61\u306e2000\u756a\u306b\u3044\u3063\u3066\u304d\u307e\u3059\u3002\r\nhell<\/pre>\n<p>\u30fb\u30fb\u30fb<\/p>\n<p>\u6c17\u3092\u53d6\u308a\u76f4\u3057\u3066\u3001\u5b8c\u6210\u3067\u3059\u3002<\/p>\n<pre>my $buf;\r\nrecv(SOCKET, $buf, 32, 0) or die \"recv failed $!\\n\";\r\nprint \"$buf\u304c\u8fd4\u3063\u3066\u304d\u307e\u3057\u305f\u3002\\n\";\r\nshutdown(SOCKET, 0);<\/pre>\n<p>\u5b9f\u884c\u7d50\u679c<\/p>\n<pre># perl UDPEchoClient.pl 192.168.24.61 hello 2000\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 [\/root\/perl]\r\n192.168.24.61\u306e2000\u756a\u306b\u3044\u3063\u3066\u304d\u307e\u3059\u3002\r\nhello\u304c\u8fd4\u3063\u3066\u304d\u307e\u3057\u305f\u3002<\/pre>\n<p>\u3053\u3063\u3061\u306f\u30b5\u30fc\u30d0\u30fc\u306etcpdump\u3001length\u304c\u5897\u3048\u305f\u306d\u3002<\/p>\n<pre>Handling client 192.168.24.63\r\n22:06:01.343056 IP 192.168.24.63.44227 &gt; test2.net.sieve-filter: UDP, length 5\r\n22:06:01.343148 IP test2.net.sieve-filter &gt; 192.168.24.63.44227: UDP, length 5<\/pre>\n<p>\u3055\u3044\u3054\u306b\u30bd\u30fc\u30b9\u3000UDPEchoServer.pl<\/p>\n<pre>#UDPEcho\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\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##\u5f15\u6570\u306e\u6570\u306e\u30c1\u30a7\u30c3\u30af\r\nif( $#ARGV &lt; 1 || $#ARGV &gt; 2)\r\n{\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 print \"Usage: #program &lt;Server IP&gt; &lt;Echo Word&gt; [&lt;Echo Port&gt;]\\n\";\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 exit(1);\r\n}\r\n\r\n#\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u304b\u3089\u30b5\u30fc\u30d0\u3001\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u5f15\u3063\u5f35\u308b\u3002\r\nmy $ServerIP = $ARGV[0];\r\nmy $EchoWord = $ARGV[1];\r\n\r\n#\u6307\u5b9a\u304c\u3042\u308c\u3070\u30dd\u30fc\u30c8\u756a\u53f7\u3092\u4ee3\u5165\u3002\r\nmy $port;\r\nif($#ARGV == 2)\r\n{\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 $port = $ARGV[2];\r\n}\r\nelse\r\n{\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 $port = 7;\r\n}\r\n\r\n#UDP\u30c7\u30fc\u30bf\u30b0\u30e9\u30e0\u30bd\u30b1\u30c3\u30c8\u3092\u4f5c\u6210\r\nsocket(SOCKET, PF_INET, SOCK_DGRAM, 0) or die \"Socket faild\\n\";\r\n\r\n#\u30a2\u30c9\u30ec\u30b9\u69cb\u9020\u4f53\u3092\u4f5c\u6210\r\n#\u30db\u30b9\u30c8\u540dorIP\u30a2\u30c9\u30ec\u30b9\u3092\u30d0\u30a4\u30ca\u30ea\u306b\u5909\u63db\r\n#\u30dd\u30fc\u30c8\u3068IP\u30a2\u30c9\u30ec\u30b9\uff08\u30d0\u30a4\u30ca\u30ea\uff09\u3092\u30d1\u30c3\u30af\r\nmy $addr = inet_aton($ServerIP) or die \"pack error\\n\";\r\nmy $sock_addr = pack_sockaddr_in($port, $addr);\r\n\r\nprint \"$ServerIP\u306e$port\u756a\u306b\u3044\u3063\u3066\u304d\u307e\u3059\u3002\\n\";\r\n#\u4eca\u56de\u3082\u30aa\u30fc\u30c8\u30d5\u30e9\u30c3\u30b7\u30e5\u4e0d\u8981\r\n#SOCKET-&gt;autoflush;\r\n\r\n#\u63a5\u7d9a\u3057\u305f\u30b5\u30fc\u30d0\u3078\u30e1\u30c3\u30bb\u30fc\u30b8\u9001\u4fe1\r\nsend(SOCKET, $EchoWord, 0, $sock_addr) or die \"send failed $!\\n\";\r\n\r\n#\u9001\u4fe1\u5b8c\u4e86\u3092\u9001\u308b\uff08\u91cd\u8981)\r\nshutdown(SOCKET, 1);\r\n\r\n#\u6587\u5b57\u5217\u3092\u30b5\u30fc\u30d0\u304b\u3089\u53d7\u4fe1\r\nmy $buf;\r\nrecv(SOCKET, $buf, 32, 0) or die \"recv failed $!\\n\";\r\nprint \"$buf\u304c\u8fd4\u3063\u3066\u304d\u307e\u3057\u305f\u3002\\n\";\r\nshutdown(SOCKET, 0);\r\n\r\n#\u30bd\u30b1\u30c3\u30c8\u3092\u9589\u3058\u308b\r\nclose(SOCKET);\r\n\r\n#\u6b63\u5e38\u306b\u7d42\u4e86\r\nexit;<\/pre>\n<p>&nbsp;<\/p>\n<p>\u3053\u3093\u306a\u611f\u3058\u3060\u3068\u3001\u4ee5\u524d\u306e\u30b5\u30fc\u30d0\u30fc\u65e5\u8a18\u306b\u8fd1\u3044\u304b\u306a\u3041\u3002<\/p>\n<p>\u53c2\u8003\u30b5\u30a4\u30c8<\/p>\n<p><a href=\"http:\/\/perldoc.jp\/\" target=\"_blank\">Perldoc.jp<\/a><\/p>\n<p>\u53c2\u8003\u6587\u732e<\/p>\n<p>TCP\/IP\u30bd\u30b1\u30c3\u30c8\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0C\u8a00\u8a9e\u7de8<br \/>\n\u5171\u8457\uff1aMichael J.Donahoo\/Kenneth L. calvert<br \/>\n\u8a33\uff1a\u5c0f\u9ad8\u77e5\u5b8f<\/p>\n<p>&nbsp;<\/p>\n<div class='wp_social_bookmarking_light'>        <div class=\"wsbl_twitter\"><a href=\"https:\/\/twitter.com\/share\" class=\"twitter-share-button\" data-url=\"https:\/\/www.vincentina.net\/?p=4176\" data-text=\"Perl\u3067UDPEchoClient\" data-via=\"TakekenTw\" data-lang=\"ja\">Tweet<\/a><\/div><\/div>\n<br class='wp_social_bookmarking_light_clear' \/>\n","protected":false},"excerpt":{"rendered":"<p>TCP\/IP Socket in c\u3092Perl\u3067\u632f\u308a\u8fd4\u308b\u30b7\u30ea\u30fc\u30ba\u306e\u7b2c3\u5f3e\u3067\u3059\u3002 \u4eca\u307e\u3067\u306e\u53cd\u7701\u3092\u8e0f\u307e\u3048\u3066\u4eca\u5ea6\u306f\u904e\u7a0b\u3082\u66f8\u3044\u3066\u307f\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3060\u3002 \u30d9\u30fc\u30b9\u306fTCPEchoServer.pl\u3092\u4f7f\u3046\u3093\u3067\u3001\u307e\u305a\u306fSOCK_STREA &hellip; <a href=\"https:\/\/www.vincentina.net\/?p=4176\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;Perl\u3067UDPEchoClient&#8221; \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-4176","post","type-post","status-publish","format-standard","hentry","category-programming"],"_links":{"self":[{"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/posts\/4176","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=4176"}],"version-history":[{"count":0,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=\/wp\/v2\/posts\/4176\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4176"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4176"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.vincentina.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4176"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}