作者akillerbear (我是歹人雄大)
看板perl
标题[问题] 用这程式抓下来的档无法解压缩?
时间Wed Nov 1 23:11:52 2006
下面是小弟写的自动到NCBI抓取档案的程式
///////////////////////////
#c:\perl\bin\perl -w
use Net::FTP;
open (FILE, ">file.log");
$ftp = Net::FTP->new("ftp.ncbi.nlm.nih.gov",Debug => 1) or die "Can't
connect: $
@\n";
$ftp->login("anonymous", "
[email protected]");
#@lines = $ftp->ls("gbvrl6.seq.gz");
#foreach $file(@lines){
$ftp->cwd("/genbank");
$ftp->get("gbvrl6.seq.gz") or die "can't get file\n";
#print FILE "$file\n";
$ftp->quit();
///////////////////////////
虽然能正确连上NCBI去抓取gbvrl6.seq.gz这个档
可是抓下来的档却不能解压缩
会出现错误讯息 但是如果用手动去抓取就可以正确解压缩
请问是哪边发生问题?THX
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.25.118.131
1F：推 LiloHuang:binary mode transfer? 11/01 23:17
2F：推 akillerbear:请问L大可以说请楚点吗 ~~~甘温喔 11/02 10:41
3F：推 akillerbear: 呼呼~~~多谢~~~我刚刚试成功了^^ 11/02 14:49
4F：推 LiloHuang::) 11/02 15:07