Mercurial > repos > ucsb-phylogenetics > osiris_phylogenetics

view alignment/prank.pl @ 0:5b9a38ec4a39 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 $format = $ARGV[1];
my $missing = $ARGV[2];
my $output = "output";
my $fparam;

if($missing eq 'yes'){
	$fparam = "-F";
}else{
	$fparam = "";
}
my $run = qx/prank -d=$input -o=$output -f=$format $fparam/;
print $run;