クライアントなテスト。
#! /usr/bin/env perl use strict; use warnings; # こんな感じ。 # perl -MIO::Socket -e'$s=IO::Socket::INET->new("localhost:12345"); $s->send($_)while<>' # 送信先のアドレス。 my $peer_addr = 'localhost:12345'; use IO::Socket; my $sock = IO::Socket::INET->new( PeerAddr => $peer_addr, Proto => 'tcp', ) or die "IO::Socket が new できんかった。 : $!"; # 入力をそのままソケットに送る。 while(<>){ $sock->send( $_ ); }