- or download this
# STOCKHOLM 1.0
#=GF ID 1-cysPrx_C
#=GF AC PF10417.4
...
...
//
Similar set of data with different numbers.
- or download this
A3EU39 | PF10417.4/ PF10000.3
Q7VQB3 | PF10417.4/...
- or download this
my %hash;
open PFAMDB, "C:\\Users\\Jems\\Desktop\\Perl\\Pfam-A.seed" or die $!;
...
if ($pfam=~ =GF AC){my $pf=$pfam;}
if ($pfam=~ \sAC\s){if exists $hash{$pfam}{$hash{$pfam}=$pf}
else .....