Naotsugu https://blog.hatena.ne.jp/Naotsugu/ A Memorandum https://blog1.mammb.com/ Perl 日時を返却するTCPサーバと、TCPサーバにアクセスするクライアントの例。tcp_server.pl #! /usr/bin/perl # 日時を返却するTCPサーバ use Socket; $port = shift || 9999; $proto = getprotobyname('tcp'); socket(ListenSock, PF_INET, SOCK_STREAM, $proto) or die("cannot open socket : $!\n"); bind(ListenSock, sockaddr_in($port, INADDR_ANY)) or dir("cannot… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog1.mammb.com%2Fentry%2F20091124%2F1259074188" title="【これだけ覚えりゃなんとか使えるPerlメモ9】TCPサーバとクライアント - A Memorandum" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-11-24 23:49:48 rich https://blog1.mammb.com/entry/20091124/1259074188 1.0 100%