view phyloconversion/addstring2fashead.pl @ 0:5b9a38ec4a39 draft default tip

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 -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";
        }