模拟服务器

开发平台：

Visual C++

GO.pl：源码内容

							#! usr/bin/perl
#print $ARGV[0];
#system ("rm -f *.ppl *.vql");
$ret=system ("perl log_client.pl $ARGV[0]");
if($ret eq 0){
exit (0);
}
system ("perl lossprob.pl");
system ("perl vquality_g711.pl");
system ("perl parse_op.pl");
#system ("graphics_gen.pl");
#system ("html_gen.pl $ARGV[1] $ARGV[0]");
#unless (defined ($child_pid = fork())) {die "Can not forkn"};
#child process
#if ($child_pid==0) {exec ("sideB.html");}
#child process 
#else {system ("sideA.html"); }

						