作者handsomegirl (薰)
看板perl
标题[问题] ftp抓档案的问题
时间Fri Jun 22 11:07:03 2007
昨天关於excel的问题感谢L版友的协助,还有A版友的帮忙
算是解决一大半了
但是今天在抓ftp资料的时候,发现会抓不下来,不晓得是哪里出了问题
我是需要去ftp抓取一天前的*.txt,希望可以每天早上七点固定抓取,
只抓有更新的档案,没更新的,local端存在就不抓了
初步的程式码长的像这样
use Net::FTP;
open (FILE, ">*.txt");
$ftp = Net::FTP->new("1xx.1xx.xx.xx",Debug => 1,Timeout => 6000) or die "Can't connect: $@\n";
$ftp->login("user", "pass");
@lines = $ftp->ls("/home/test");
foreach $file(@lines){
$ftp->get("/home/test/*.txt", "c:\\Perl\\test\\*.txt") or die "can't get file\n";
print FILE "*.c\n";
}
$ftp->quit();
但是执行後却出现
Net::FTP=GLOB(0x1cea178)<<< 550 Failed to open file.
can't get file
问题1.为什麽会没有办法抓资料?程式码出错吗?
问题2.怎麽样可以筛选有更新的档案,并且固定在每天早上七点执行?
最近刚好做个系统,问题有点多,先谢谢了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.65.55.161
※ 编辑: handsomegirl 来自: 61.65.55.161 (06/22 11:25)
※ 编辑: handsomegirl 来自: 61.65.55.161 (06/22 13:12)
※ 编辑: handsomegirl 来自: 61.65.55.161 (06/22 13:13)