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

 

更详细的内容，请参考:

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