Bio-MUST-Core
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
bin/ali2fasta.pl view on Meta::CPAN
#!/usr/bin/env perl
# PODNAME: ali2fasta.pl
# ABSTRACT: Convert ALI files to FASTA files
use Modern::Perl '2011';
use autodie;
use Getopt::Euclid qw(:vars);
use Smart::Comments;
use Bio::MUST::Core;
use Bio::MUST::Core::Utils qw(change_suffix);
use aliased 'Bio::MUST::Core::Ali';
for my $infile (@ARGV_infiles) {
### Processing: $infile
my $ali = Ali->load($infile);
$ali->dont_guess if $ARGV_noguessing;
$ali->degap_seqs if $ARGV_degap;
my $outfile = change_suffix($infile, '.fasta');
my $chunk = $ARGV_nowrap ? -1 : undef;
$ali->store_fasta($outfile, $chunk);
}
__END__
=pod
=head1 NAME
ali2fasta.pl - Convert ALI files to FASTA files
=head1 VERSION
version 0.240390
=head1 USAGE
ali2fasta.pl <infiles> [optional arguments]
=head1 REQUIRED ARGUMENTS
=over
=item <infiles>
Path to input ALI files [repeatable argument].
=for Euclid: infiles.type: readable
repeatable
=back
=head1 OPTIONAL ARGUMENTS
=over
=item --degap
Discard gaps when converting sequences [default: no].
=item --[no]wrap
view all matches for this distributionview release on metacpan - search on metacpan
( run in 4.785 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-72ae3ad1e6da )