#!/usr/local/bin/perl

# $Id: echo-client-io-socket.pl,v 1.1 2001/04/21 18:56:39 68user Exp $

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

                                  # ホスト名とポート番号を設定
$host = shift || 'localhost';
$port = shift || getservbyname('echo','tcp') || 7;

print "$host:$port に接続します。\n";

$socket = IO::Socket::INET->new(PeerAddr => $host,
				PeerPort => $port,
				Proto    => 'tcp',
				);
if ( ! $socket ){
    die "接続できませんでした。 $!\n";
}

for (1..5){
                                  # 文字列を送信
    print "送信メッセージ: line $_\n";
    print $socket "line $_\n";
    $socket->flush();

                                  # 文字列を受信
    $buf = <$socket>;
    print "受信メッセージ: $buf";
}

$socket->close();