- or download this
>GTM1_RAT GLUTATHIONE S-TRANSFERASE YB1 (EC 2.5.1.18) ( (217 aa)
WFAGDKVTYVDFLAYDILDQYHIFEPKCLDAFPNLKDFLARFEGLKKISAYMKSSRYLST
...
>GTM4_HUMAN GLUTATHIONE S-TRANSFERASE MU 4 (EC 2.5.1.18 (218 aa)
LPTMMQHFSQFLGKRPWFVGDKITFVDFLAYDVLDLHRIFEPNCLDAFPNLKDFISRFEG
LEKISAYMKSSRFLPKPLYTRVAVWGNK
- or download this
#!/usr/bin/perl
...
{
print join "\n", $chosen, $records{$chosen}, '';
}
- or download this
perl test-format.pl *.fasta > test.out