2009-11-24から1日間の記事一覧

【これだけ覚えりゃなんとか使えるPerlメモ9】TCPサーバとクライアント

日時を返却するTCPサーバと、TCPサーバにアクセスするクライアントの例。tcp_server.pl #! /usr/bin/perl # 日時を返却するTCPサーバ use Socket; $port = shift || 9999; $proto = getprotobyname('tcp'); socket(ListenSock, PF_INET, SOCK_STREAM, $proto…