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

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

use Socket;

if ( @ARGV != 2 ){
    print "引数で [接続先ホスト名] [接続先ポート番号] を指定して下さい。\n";
    exit;
}

$host = shift @ARGV;
$port = shift @ARGV;

$iaddr = inet_aton($host) || die "$!";
$sock_addr = pack_sockaddr_in($port, $iaddr) || die "$!";
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "$!";
connect(SOCKET, $sock_addr) || die "$!";

$num_of_senddata = 100000;

for ( $i=1 ; $i<=$num_of_senddata ; $i++ ){
    print SOCKET "Hello $i\n" || die "$!";
}

print "$host:$port に対して、データを $num_of_senddata 回送信しました。\n";