#!/usr/local/bin/perl -w

# $Id: udp-server-1.pl,v 1.1 2002/02/17 10:19:18 68user Exp $

use Socket;     # Socket モジュールを使う

$port = 7000;   # ポート番号は 7000 番

                # ソケット生成
socket(SOCKET, PF_INET, SOCK_DGRAM, 0)
        or die "ソケットを生成できません。\n";

bind(SOCKET, pack_sockaddr_in($port, INADDR_ANY));

$recv_count = 0;

while (1){
    recv(SOCKET, $buf, 10000, 0);
    $recv_count++;
    print "受信データ=$buf (受信回数 $recv_count)\n";

    # スピード調整のためのウェイト
    # select(undef, undef, undef, 0.01);
}