(Bem sei que esta pergunta é antiga, mas é tão raro coisas diferentes de html e js que eu não resisto...)
#!/usr/bin/perl
use strict;
sub ler_fasta { my $file=shift;
local $/="'>'"; # separador de registo= '>'
my %val;
open(FASTA, "fasta.txt") or die "Nao foi possivel abrir o arquivo: $!";
while( <FASTA>) { chomp;
if(/(.+)\n(.+)/){ $val{$1}=$2 }
}
return \%val
}
Deste modo os valores ficam associados ao identificador (Ex: print $val->{Pvivax_1}
)
use Data::Dumper; print Dumper( ler_fasta("fasta.txt"))
dá
$VAR1 = { 'Pvivax_2' => 'TTGGCCC',
'Pvivax_1' => 'AAGGTTT'
};