1.Server端
use IO::Socket; my $sock = new IO::Socket::INET ( LocalHost => '127.0.0.1', LocalPort => '8888', Proto => 'tcp', Listen => 1, Reuse => 1, ); die "Could not create socket: $!/n" unless $sock; my $new_sock = $sock->accept(); while(<$new_sock>) { print $_; } close($sock);
2.client端
use IO::Socket; my $sock = new IO::Socket::INET ( PeerAddr => '127.0.0.1', PeerPort => '8888', Proto => 'tcp', ); die "Could not create socket: $!/n" unless $sock; print $sock "Hello there!/n"; close($sock);
更详细的内容,请参考:
http://www.perlfect.com/articles/sockets.shtml