怎样使用ActivePerl画图并产生MHTML文件.docx

#!/opt/ActivePerl-5.10/bin/perlBEGIN {push(@INC,/NIV_AutoST/lib)};use CGI :standard;use GD::Graph::lines;use strict;use Getopt::Std;use MIME::Entity;my %opts;getopts(x:y:z:p:hl:ma,\%opts) || die;my $xName;my $yName;my $logName;my $pathName;my $zName;$pathName = $opts{p} if defined $opts{p};$logName = $opts{l} if defined $opts{l};if(defined $opts{h}){ print Usage: ./draw_chart.pl -l log -p path -x xAxisName -y yAxisName -z zAxisName -h(help) -m(multiple picture);}if(!open(LOG_FILE,$logName)){ die CANNOT open file: $logName\n;}my @logFile = LOG_FILE;$xName = (split(/\s+/,$logFile[0]))[0];$yName = (split(/\s+/,$logFile[0]))[1];#$zName = (split(/\s+/,$logFile[0]))[2];$xName = $opts{x} if defined $opts{x};$yName = $opts{y} if defined $opts{y};$zName = $opts{z} if defined $opts{z};my $xcolumn = 0;my @ycolumn;my $xline = 1;my $zcolumn = 2;my @yLagend;chdir($pathName);if (defined $opts{x} || defined $opts{y} || defined $opts{z}){ my $findX=0; my $findY=0; my $findZ=0; $xline = `sed -n /$xName/= $logName`; chomp($xline); my @c = split(/\s+/,$logFile[$xline-1]); for(my $i=0; $i@c; $i++) { if($c[$i] =~m $xName) { $xcolumn = $i; $findX=1; } if($c[$i] =~m $yName) { push(@ycolumn,$i); push(@yLagend,$c[$i]); $findY=1; } if($c[$i] =~m $zName) { $zcolumn = $i; $findZ=1; } } if((($findX == 0)defined $opts{x}) ||( ($findY == 0) defined $opts{y})||( ($findZ == 0)defined $opts{z})) { die CANNOT find data for xAxis: $xName or yAxis: $yName or $opts{z}. Please have a check!\n; }}if(!defined $opts{y}){ my @c = split(/\s+/,$logFile[$xline-1]); for(my $i=1; $i@c; $i++) { push(@ycolumn,$i); push(@yLagend,$c[$i]); }}my @xData;my @yData;my @zData;for(my $j=0;$j@ycolumn;$j++){ my @y; for(my $i=$xline;$i@logFile;$i++) { chomp($logFile[$i]); my @iContent = split