作者：CppExplore 網址：http://m.shnenglu.com/CppExplore/
最近為了測試自己的程序，又避免和其它模塊聯調，用perl寫了幾個陪測程序，拿來秀一下。工具就是工具而已，我無意于創造華麗的輪子，陪測工具夠用就好。這幾個陪測程序演示了udp/tcp server、udp/tcp client，希望對大家能有點幫助。
第一個：radius server。近來的項目都是一期項目，radius只做認證，因此陪測程序也只做了認證，加accout也是很簡單的事情。radius是個很簡單的協議，簡單描述下：client發送請求包的結構如下：8位code表示請求類型，8位packetid表示包的順序號，16位包長度，128位標識，后邊跟屬性，8位屬性名，8位屬性長度，后面接屬性value，后面繼續屬性。server端接收到以后，回復包結構：8位code表示回復類型，8位packetid，16位長度，128位標識，后面屬性。注意這里的128位標識不是client發來的，它是該包的code＋packetid＋client的標識＋該包后面屬性＋公用密鑰后md5計算，取前128位的結果。
#!/usr/bin/perl
use Socket;
use Digest::MD5 qw(md5 md5_hex md5_base64);
print "radius server start
"."\n";
open(fp1,"./server_config");
$/="\r\n";
while($a=<fp1>)
{
if($a=~/port=/)
{
$a=~s/port=//;
chomp($port=$a);
print "port=".$port;
}
if($a=~/secret=/)
{
$a=~s/secret=//;
chomp($secret=$a);
print "secret=".$secret;
}
}
socket(sockmain,PF_INET,SOCK_DGRAM,0)||die "socket error:$!\n";
setsockopt(sockmain, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) ||die "setsockopt: $!";
bind(sockmain, sockaddr_in($port, INADDR_ANY)) ||die "bind: $!";
while(1)
{
$hispaddr=recv(sockmain,$buf,1024,0);
print "a client connect"."\n";
my $requestTypeord=ord(substr($buf,0,1));
print '$requestTypeord='.$requestTypeord."\n";
my $packetId=ord(substr($buf,1,1));
print '$packetId='.$packetId;
my $packet_length=ord(substr($buf,2,1))*256+ord(substr($buf,3,1));
print '$packet_length='.$packet_length."\n";
my $identifier=substr($buf,4,16);
$location=20;
while($location<$packet_length)
{
$attribute=ord(substr($buf,$location,1));
print "\n".'$attribute='.$attribute."\n";
$attribute_length=ord(substr($buf,$location+1,1));
print '$attribute_length='.$attribute_length."\n";
$value=substr($buf,$location+2,$attribute_length-2);
print '$value='.$value."\n";
$location+=$attribute_length;
}
$data=chr(2).chr($packetId).chr(0).chr(20).$identifier.$secret;
$data=md5($data);
$response=chr(2).chr($packetId).chr(0).chr(20).substr($data,0,16);
send(sockmain,$response,0,$hispaddr);
print "send access sucess!"."\n";
}
print "close."."\n";
close ($main_sock);其中，./server_config是配置文件，里面配置了兩項，端口和公用密鑰。
port=6011
secret=12345678
第二個：http sever。我們部門的項目對各個網元server的管理命令采用http協議，也就有了這個和后面的http client陪測程序：client發送參數使用post方式，server回送的數據內容采用xml。
#!/usr/bin/perl
use Socket;
$SIG{CHLD} ="IGNORE";
print "http server start\n";
$\="\r\n";
my %map;
open(fp1,"./server_config");
$/="\r\n";
while($a=<fp1>)
{
if($a=~/cmd=/)
{
$a=~s/cmd=//;
chomp($cmd=$a);
$value="";
while($b=<fp1>)
{
$b=~s/{//;
$b=~s/\s*(\w*)\s*/$1/;
chomp($b);
if($b=~/}/)
{
$b=~s/}//;
$value.=$b;
last;
}
$value.=$b;
}
$map{$cmd}=$value;
print $cmd."=".$value."\n";
}
if($a=~/port=/)
{
$a=~s/port=//;
chomp($port=$a);
print "port=".$port;
}
}
socket(sockmain,PF_INET,SOCK_STREAM,0)||die "socket error:$!\n";
setsockopt(sockmain, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) ||die "setsockopt: $!";
bind(sockmain, sockaddr_in($port, INADDR_ANY)) ||die "bind: $!";
listen(sockmain,5)|| die "listen: $!";
while (accept($new_sock,sockmain) )
{
$pid = fork();
die "cann't fork " unless defined($pid);
if ($pid == 0)
{
print ">>>>>>>>>>>>>>>>\n";
recv($new_sock,$buf,1024,0);
print "$buf";
$len=index($buf,"POST",0);
$len2=index($buf,' HTTP/1.1',$len);
$new_cmd=substr($buf,$len+6,$len2-$len-6);
print $new_cmd;
$msg="<?xml version=\"1.0\" encoding=\"UTF-8\"?><response command=\"".
$new_cmd."\">".
$map{$new_cmd}.
"</response>";
$result="HTTP/1.1 200 OK\r\n".
"Content-Length: ".length($msg)."\r\n".
"Content-Type: text/xml; charset=UTF-8\r\n".
"\r\n".$msg;
send($new_sock,$result,0);
print "<<<<<<<<<<<<<<<<<\n";
print $result."\n";
exit(0);
}
}
print "close.\n";
close ($main_sock);
其中./server_config是配置文件，里面配置了端口，需要響應的命令以及響應的內容。
port=9120
cmd=DeviceRegister
{
<result code="0">OK</result>
}
第三個：http client。再copy代碼就太羅唆了，呵呵。還是老樣子，先讀取配置文件，拿到要連接的ip:port,要發送的命令，post的參數，然后構造http信令，connect到server，send就好了，之后再recv下server的響應。
第四個：rtsp client。思路也在上一篇文章里說了，不再羅唆了。這個和前幾個不同的是，這個陪測腳本是我上個項目主要的業務測試腳本，是業務的發起者。因此（1）配置文件名作為參數傳遞進去 （2）配置文件可以配置各種信令的以及各種發送流程（3）使用一個新的腳本調用大量使用不同配置文件的如此腳本，用來做穩定性壓力測試