#!/usr/bin/perl use Socket; # コマンドラインからポート番号を得る。 $port= shift || 9999; # プロトコル番号を得る。 $proto=getprotobyname('tcp'); # listenするソケットをオープンする。 socket(ListenSock,PF_INET,SOCK_STREAM,$proto) or die("ソケットがオープン出来ない:$!\n"); # bindする bind(ListenSock,sockaddr_in($port,INADDR_ANY)) or die("ソケットがbindできない:$!\n"); # listenする listen(ListenSock,SOMAXCON); # 待機し、接続要求があれば日時を返す print "ポート番号:$port で待機開始\n"; while($sock