用Perl写的socket脚本

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',); die "Could not create socket: $!/n" unless $sock; print $sock "Hello there!/n"; close($sock);

?

更详细的内容，请参考:

http://www.perlfect.com/articles/sockets.shtml