In article <[EMAIL PROTECTED]>,
 [EMAIL PROTECTED] (James Kipp) writes:

>$template = 'S n C4 x8';
>$| = 1;
>socket(MY_SOCKET, AF_INET, SOCK_STREAM, 0) || die "Socket: $!\n";
>
>$addr = (gethostbyname("10.1.101.12"))[4];
>$paddr = pack($template,AF_INET,$port,$addr);
>bind(MY_SOCKET, $paddr) || die "$0: Cannot bind .. $!\n";

How primitive...may I suggest IO::Socket::INET:

$socket = IO::Socket::INET->new(PeerAddr => "10.1.101.12", 
                                Proto    => "tcp",
                                PeerPort => $port);

>$port = 6668;

Or perhaps POE::Component::IRC :-)

-- 
Peter Scott
http://www.perldebugged.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to