[Bio] / FigKernelScripts / run_muscle.pl Repository:
ViewVC logotype

View of /FigKernelScripts/run_muscle.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Sat Feb 19 18:10:23 2011 UTC (8 years, 8 months ago) by golsen
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, mgrast_dev_04082011, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2014_0729, mgrast_dev_02212011, mgrast_release_3_0, mgrast_dev_03252011, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011, HEAD
Changes since 1.2: +7 -15 lines
Update libraries used.

use gjoalignment;
use gjoseqlib;
use strict;

my $usage = "usage: run_muscle [Seqs [Alignment]]";

my @seqs = &gjoseqlib::read_fasta( @ARGV ? shift : () );
@seqs or print STDERR "Failed to read sequences.\n\n$usage\n\n"
    and exit;
my $ali  = &gjoalignment::align_with_muscle( \@seqs );
&gjoseqlib::print_alignment_as_fasta( ( @ARGV ? shift : () ), $ali );

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3