Re: [ccp4bb] generating separate pdb files

[Michael Kenneth Fenwick]

Hi Charlie,

This may not be what you want, but this perl script seemed to work just now on 
1g9e.pdb


$base='1g9e';open(IN,"<$base.pdb");@indata = <IN>;$i=0;

foreach $line(@indata) {

if($line =~ /^MODEL/) {++$i;$file="${base}_$i.pdb";open(OUT,">$file");next}

if($line =~ /^ENDMDL/) {next}

if($line =~ /^ATOM/ || $line =~ /^HETATM/) {print OUT "$line"}

}



Hope it helps you,

Mike