in reply to Re: renaming 1000's of FASTA files
in thread renaming 1000's of FASTA files
Shouldn't this code:
if (exists ($seq_id{$id})) { print ">"; print $seq_id{$fasta_id}; print "\n".$seq."\n"; }
be
andif (exists ($seq_id{$id})) { print ">"; print $seq_id{$id}; print "\n".$seq."\n"; }
$seq_id{$fasta_id} => $_; be $seq_id{$fasta_id} = $_;
Update: Corrected print $seq_id{$id}; from print $id
In Section
Seekers of Perl Wisdom