view 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
line wrap: on
line source

#!/usr/bin/perl

my $input = $ARGV[0];
my $dna = $ARGV[1];

if ($dna eq 'dna'){
	$dna = '-DNA';
}else{
	$dna = '';
}
my $run = qx/mview -in pearson $dna -bold -coloring group -html head $input/;
print $run;