看板 Perl 關於我們 聯絡資訊
下面是小弟寫的自動到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", "kkk@yahoo.com"); #@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
LiloHuang:binary mode transfer? 11/01 23:17
akillerbear:請問L大可以說請楚點嗎 ~~~甘溫喔 11/02 10:41
akillerbear: 呼呼~~~多謝~~~我剛剛試成功了^^ 11/02 14:49
LiloHuang::) 11/02 15:07