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]
