模拟服务器

开发平台：

Visual C++

GO-html.pl：源码内容

							#! usr/bin/perl
#print $ARGV[0];
#system ("del sideA*");
#system ("del sideB*");
$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"};
#parent process
if ($child_pid==0) {exec ("sideB.html");}
#child process 
else {system ("sideA.html"); }

						