perl实例代码,socket应答的例子。
代码:
#!/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new
(
PeerAddr => 'www.jb200.com',
PeerPort => 1116,
Proto => "tcp",
Type => SOCK_STREAM
) or die "Could not open port.n";
$answer = <$socket>;
print $answer;
close($socket);