使用说明：
plotNuc.pl dir ext
dir 包含多重序列比对文件的文件夹
ext 多重序列比对文件后缀
生成dir.html
,-"); seq_tmp=seq_tmp.replace(/-([^-])/g,"-,
使用说明：
plotNuc.pl dir ext
dir 包含多重序列比对文件的文件夹
ext 多重序列比对文件后缀
生成dir.html
"); var group=seq_tmp.split(","); var color="gray"; var start_x=0; var end_x=x_max; ctx.fillStyle=color; start_y+=1.2*fontsize; ctx.fillText(id,0,start_y); start_y+=0.2*fontsize; for(var k=0;k<group.length;k++){ if(group[k].match(/-/)){ color="rgba(5,5,5,0.2)"; } else{ color="rgba(255,0,0,0.5)"; } var len=group[k].length; len=len*x_max/seq.length; end_x=start_x+len; ctx.fillStyle=color; ctx.fillRect(start_x,start_y,len,bar_height); start_x+=len; } start_y+=bar_height+bar_mid; } } } // --></mce:script> </head> <body> '; print F ' <table border="1" id="table"> '; my $count=0; foreach my $file(sort @files) { print F "<tr>/n"; print F "<td>/n"; print F '<canvas id="',$count,'" width="',$canvas_width,'" height="',$canvas_height,'"></canvas>',"/n"; print F "</td>/n"; print F "</tr>/n"; $count++; } print F ' </table> <mce:script type="text/javascript"><!-- draw(fasta); // --></mce:script> '; close(F); ################################################################# ## SUBS ################################################################# __END__ ################################################################### ## Now Docs... ################################################################### =head1 NAME plotNuc.pl - DESCRIBE ME =head1 SYNOPSIS plotNuc.pl [-h] [-v] =head1 OPTIONS =over 1 =item B<-h|--help> Print help message and exit successfully. =item B<-v|--version> Print version information and exit successfully. =back =cut ### plotNuc.pl --- #! /usr/bin/perl -w # # Fil
