Skip to content
Snippets Groups Projects
Commit 540a8afc authored by Glenn Proctor's avatar Glenn Proctor
Browse files

Bug fix: was preserving newlines in sequence part of RefSeq .rna.fna files.

parent d526a1b6
No related branches found
No related tags found
No related merge requests found
......@@ -69,6 +69,9 @@ sub create_xrefs {
chomp $entry;
my ($header, $sequence) = split (/\n/, $entry, 2);
$sequence =~ s/^>//;
# remove newlines
my @seq_lines = split (/\n/, $sequence);
$sequence = join("", @seq_lines);
(my $gi, my $n, my $ref, my $acc, my $description) = split(/\|/, $header);
my ($species, $mrna);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment