>1elwA
AAAAAASSSSSSSSSSSSSSDDDDDDDDDDDFFFFFFFFFF
>1flwA
GGGGGGGGGGHHHHHHHHHHHHIIIIIIIIIIIIIIJJJJJJJJJJ
>1ghwA
KKKKKKKKKKLLLLLLLLLLMMMMMMMMMMNNNNNNNNNNOOOOO
####
#!/usr/bin/perl
my %seqInfo = ();
open(FILE, 'test.fasta');
{
while()
{
my $line = $_;
if ($line =~ />.*/)
{
#print "$&\n";
}
else
{
#print "$line\n";
}
$seqInfo{$&} = $line;
print "$& => $line\n";
}
}
##
##
=> >1elwA
=> AAAAAASSSSSSSSSSSSSSDDDDDDDDDDDFFFFFFFFFF
=> >1flwA
=> GGGGGGGGGGHHHHHHHHHHHHIIIIIIIIIIIIIIJJJJJJJJJJ
=> >1ghwA
=> KKKKKKKKKKLLLLLLLLLLMMMMMMMMMMNNNNNNNNNNOOOOO
##
##
>1elwA => AAAAAASSSSSSSSSSSSSSDDDDDDDDDDDFFFFFFFFFF