Select Code to Download

#!/usr/bin/perl -w
    use strict;
    use Getopt::Long;
...
            my$susti=`perl -pi -e 's/$dbid/$firstid/g' $name.$ext`;
            }
        }

#Database of table names and new names

Aspergillus_clavatus_1    XP_001276684.1 pectate lyase, putative [Aspe
+rgillus clavatus NRRL 1]
...
XP_001276684.1 pectate lyase, putative [Aspergillus clavatus NRRL 1]  
+  Aspergillus_flavus_198    Aspergillus_terreus_166    XP_001276694.1
+ conserved hypothetical protein [Aspergillus fumigatus NRRL 1]    
XP_001276684.1 pectate lyase, putative [Aspergillus clavatus NRRL 1]  
+  XP_001276726.1 tyrosinase central domain protein [Aspergillus flavu
+s NRRL 1]    XP_001276738.1 endoglucanase, putative [Aspergillus terr
+eus NRRL 1]    XP_001276694.1 conserved hypothetical protein [Aspergi
+llus fumigatus NRRL 1]
Aspergillus_clavatus_3    Aspergillus_flavus_198    Aspergillus_terreu
+_166    Aspergillus_fumigatus_16