GO-text.pl
上传用户:wzkunzhan
上传日期:2022-04-23
资源大小:2618k
文件大小:0k
- #! usr/bin/perl
- #print $ARGV[0];
- $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 $ARGV[0]");
- #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"); }