If you have perl installed, just use this script to convert as many files as you want once by typing : perl mutala.pl myfile.pdb myfile2.pdb etc

Bottomley, Matthew wrote:

Dear All,

Can anyone recommend a windows/PC-friendly program (website?) to convert a PDB file into a poly-Ala model?

Thanks a lot!

Matt

====================================
Matthew J. Bottomley, Ph.D.
Senior Research Biochemist
IRBM / MRL-Rome
====================================

Notice:  This e-mail message, together with any attachments, contains information of 
Merck&  Co., Inc. (One Merck Drive, Whitehouse Station, New Jersey, USA 08889), 
and/or its affiliates (which may be known outside the United States as Merck Frosst, 
Merck Sharp&  Dohme or MSD and in Japan, as Banyu - direct contact information for 
affiliates is available at http://www.merck.com/contact/contacts.html) that may be 
confidential, proprietary copyrighted and/or legally privileged. It is intended solely 
for the use of the individual or entity named on this message. If you are not the 
intended recipient, and have received this message in error, please notify us 
immediately by reply e-mail and then delete it from your system.


--
Nicolas Soler
Institut de Chimie des Substances Naturelles
91190 Gif-sur-Yvette
tel 33-1-69823764
fax 33-1-69823784
http://perso.nicodam.org/

#!/usr/bin/perl -w

############################################################################################
#                       Mutala: script mutate each residue in alanine in a pdb 
file                                        #
#                                                       Written by Nicolas 
Soler                                                                           
#
########################FONCTIONS###########################################################
foreach $fichier (@ARGV) {
        open (ENTREE,$fichier);

        if (glob "polyala$fichier"){unlink "polyala$fichier"};
        open SORTIE, ">>polyala$fichier";
        select SORTIE;

        while (<ENTREE>){if (/^ATOM.{9}(N |C |O 
|CA|CB)..(\w{3})/){s/$2/ALA/;print $_}};

        print "END";
        close ENTREE;
        close SORTIE;}

Reply via email to