作者jengys ( )
看板Perl
標題[問題] 連接FTP抓檔案
時間Tue Jul 19 19:06:35 2011
目的：想連上FTP的指定資料夾抓取全部檔案到電腦裡的指定資料夾
小弟剛接觸perl沒多久
程式是經由板上的文章去作修改的
所以有些地方不太懂 想請教各位
我現在的問題是
1.成功連上FTP->成功讀取來源資料夾內的檔案
->使用get抓檔案->檔案開啟失敗
所謂開啟失敗是指除了.txt檔
其他如.doc .xls .ppt這些文件檔案都會損毀
我有連到FTP去檢查檔案 確定檔案是沒有問題的
但是用程式抓 就會發生「修改時間更新」、「檔案變大」以及「壞檔」的情況出現
(修改時間更新是指 原本檔案的最後修改時間會變成抓檔案的時間)
不知道是什麼問題?
(程式可以順利執行 也沒有出現任何警告或錯誤的訊息)
2.要如何讓檔案被抓到指定的目錄下?
目前檔案會被抓到和程式同一個目錄下
以下為程式碼
use Cwd;
use strict;
use Net::FTP;
my($site,$ftp,$direc,@line,@local,%filename);
$site="xx.xx.xx.xx";
$ftp=Net::FTP->new("$site",Debug=>0) or die;
$ftp->login("id","pw") or die;
$direc='/test1';#來源目錄
$ftp->cwd($direc);
@line=$ftp->ls();
$ftp->binary;
foreach(@line){
$ftp->get($_) or die;
print $_,"\n";
}
$ftp->quit() or die;
先謝謝各位高手
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.216.168
1F：推 CindyLinz:連上之後傳檔案之前加一下 $ftp->binary 檔案就不會變大 07/19 22:28
謝謝樓上C大
檔案變大的問題解決了
可是
「檔案最後修改時間」的變動依然找不到解決之道
※ 編輯: jengys 來自: 123.194.216.168 (07/20 20:11)