生物分子模拟论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1017|回复: 0

[原创] 生物信息:perl批量下载pdb数据

[复制链接]
发表于 2014-11-16 13:13:20 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,下载更多分子模拟资源。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
#!/perl 64/bin/perl -w
use WWW::Mechanize;
    use Storable;
@pdb_code=qw(3ASU 3GED 3GUY 3IOY 3PK0 4DYV 4GH5 4IQG 4ITU 4ONE);#粘贴你要下载的pdb ID
$num1=@pdb_code;#下载的pdb文件数量

print "下载的pdb文件数为        $num1\n";
for(my $i=0;$i<$num1;$i++){
       $url = 'http://www.rcsb.org/pdb/files/$pdb_code[$i].pdb';
    $m = WWW::Mechanize->new();
    $m->get($url);

    $c = $m->content;
    $b=$c;
open(A,">C:/Perl64/workplace/pdb/$pdb_code[$i].pdb")||die("Can not open the file!$!n");#pdb文件下载完成后的路径
print A $b;
}

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|分迪科技|手机版|Archiver|生物分子模拟论坛 ( 蜀ICP备14009200号-3

GMT+8, 2018-1-17 09:13 , Processed in 0.210347 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表