我正在尝试使用BindingDB找到一种下载蛋白质PDB文件的方法。我有一个包含不同BindingDB ID的文件,我想为每个ID下载蛋白质的每个配体下载PDB文件。
我正在使用脚本从RSCB下载特定的PDB文件:PDB。现在我必须这样做,但我有BindingDB ID。
我之前使用的脚本如下所示:
#! usr/bin/perl -w
open (NDX, 'file.txt');
@ndx_ar = <NDX>;
close NDX;
$ndx_sz = scalar @ndx_ar;
for ( $c = 0; $c < $ndx_sz; ++$c ) {
chomp $ndx_ar[$c];
if ( $ndx_ar[$c] =~ /pdb/ ) {
$ndx_ar[$c] =~ s/.pdb//;
`wget 'http://www.pdb.org/pdb/download/downloadFile.do?fileFormat=pdb&compression=NO&structureId=$ndx_ar[$c]' -O $ndx_ar[$c].pdb`;
}
else {
`wget 'http://www.pdb.org/pdb/download/downloadFile.do?fileFormat=pdb&compression=NO&structureId=$ndx_ar[$c]' -O $ndx_ar[$c].pdb`;
}
}
exit;