pditommaso · September 24, 2011 15:29
diff --git a/fasta_reader.pl b/fasta_reader.pl
 use strict;
 use Bio::SeqIO;
 my $in  = Bio::SeqIO->new(-file => "input.fa",-format => 'Fasta');

 my $seq;
 while ( $seq = $in->next_seq() ) {
 print $seq->display_id() . " - " .  $seq->seq() . "\n";
 }
	use strict;
	use Bio::SeqIO;
	my $in = Bio::SeqIO->new(-file => "input.fa",-format => 'Fasta');

	my $seq;
	while ( $seq = $in->next_seq() ) {
	print $seq->display_id() . " - " . $seq->seq() . "\n";
	}