Mercurial > repos > ucsb-phylogenetics > osiris_phylogenetics

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/phyloconversion/addstring2fashead.pl	Tue Mar 11 12:19:13 2014 -0700
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+#use Bio::DB::Fasta;
+use Bio::SeqIO;
+use Bio::Seq;
+
+# open infile fasta file
+  my $in_obj      = Bio::SeqIO->new(-file => $ARGV[0], '-format' =>'fasta');
+
+  my $currentinput =  $ARGV[1];
+
+# grab sequence object
+        while (my $seq = $in_obj->next_seq()  ) {
+        	my $seq_obj = $in_obj;
+		print ">".$currentinput.$seq->id."\n";
+		print $seq->seq."\n";
+        }