comparison alignment/mview.pl @ 0:5b9a38ec4a39 draft default tip

First commit of old repositories
author osiris_phylogenetics <ucsb_phylogenetics@lifesci.ucsb.edu>
date Tue, 11 Mar 2014 12:19:13 -0700
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:5b9a38ec4a39
1 #!/usr/bin/perl
2
3 my $input = $ARGV[0];
4 my $dna = $ARGV[1];
5
6 if ($dna eq 'dna'){
7 $dna = '-DNA';
8 }else{
9 $dna = '';
10 }
11 my $run = qx/mview -in pearson $dna -bold -coloring group -html head $input/;
12 print $run;