[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("\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;