Mercurial > repos > ucsb-phylogenetics > osiris_phylogenetics

comparison phyloconversion/addstring2fashead.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
comparison
equal deleted inserted replaced
-1:000000000000 0:5b9a38ec4a39
1 #!/usr/bin/perl -w
2
3 use strict;
4
5 use FindBin;
6 use lib "$FindBin::Bin/lib";
7 #use Bio::DB::Fasta;
8 use Bio::SeqIO;
9 use Bio::Seq;
10
11 # open infile fasta file
12 my $in_obj = Bio::SeqIO->new(-file => $ARGV[0], '-format' =>'fasta');
13
14 my $currentinput = $ARGV[1];
15
16 # grab sequence object
17 while (my $seq = $in_obj->next_seq() ) {
18 my $seq_obj = $in_obj;
19 print ">".$currentinput.$seq->id."\n";
20 print $seq->seq."\n";
21 }