[Perl]测试程序时用Perl真是太方便了

测试自己的业务数据远程传送服务，需要一个能模拟对方Socket的服务，
这时候就显出Perl的便利了。一分钟搞定。
代码如下，其实也是从CPAN那里拿来的：
####################################################################
#
# 工程项目： 模拟Socket服务器
#
# 模块任务： 来自intenel,这个脚本提供一个TCP echo 服务，版本是2
#
# 程序名称:  TcpEchoServerForLDB.pl
#
# 程序说明: 
#            监听固定Socket端口，如果收到数据，就给对方返回一个字符串“ok回车”，
#    这样来模拟接收数据的Socket服务。
#
# 使用说明：TcpEchoServerForLDB.pl [port]
#           [port]指要监听的端口号
####################################################################

#!/usr/bin/perl
# Figure 5.4: The reverse echo server, using IO::Socket

##================================================================##
system("cls");
warn("\n");
warn("TCP ECHO Simple Server Version 2.0\n");
warn("没有版权 Linktone 2005-2006。不保留所有权利。\n");
warn("\n");
warn("用法： TcpEchoServerForLDB.pl [port]\n");
warn("[注意]如果没有传递端口参数，默认监听4330端口\n");
warn("[注意]发送的数据请以回车换行结尾！\n");
##================================================================##

##================================================================##
## 引用的库声明 2
use strict;
use IO::Socket qw(:DEFAULT :crlf);
##================================================================##

##================================================================##
use constant MY_ECHO_PORT => 4330;
$/ = CRLF;
my ($bytes_out,$bytes_in) = (0,0);

my $quit = 0;
$SIG{INT} = sub { $quit++ };

my $port = shift || MY_ECHO_PORT;

my $sock = IO::Socket::INET->new( Listen => 20,
LocalPort => $port,
Timeout => 60*60,
Reuse => 1)
or die "Can't create listening socket: $!\n";

warn "服务守候在端口$port...\n";
while (!$quit)
{
 next unless my $session = $sock->accept;

 my $peer = gethostbyaddr($session->peeraddr,AF_INET) || $session->peerhost;
 my $port = $session->peerport;
 warn "她来了：[$peer,$port]\n";

 # 要回送的字符串
 my $msg_Output = "ok回车";

 while (<$session>)
 {
  $bytes_in += length($_);
  chomp;
  my $msg_out = (scalar reverse $_) . CRLF;
  warn("Message From [$peer,$port]:$msg_out");
  print $session $msg_Output;
  ##warn("Send Message To [$peer,$port]:$msg_Output");
  $bytes_out += length($msg_Output);
 }
 warn "她走了[$peer,$port]！\n";
 close $session;
}
##================================================================##

print STDERR "bytes_sent = $bytes_out, bytes_received = $bytes_in\n";
warn("bytes_sent = $bytes_out, bytes_received = $bytes_in\n");
close $sock;

本文地址：http://com.8s8s.com/it/it32908.htm