作者handsomegirl (薰)
看板perl
标题Re: [问题] ftp抓档案的问题
时间Fri Jun 22 13:12:28 2007
※ 引述《handsomegirl (薰)》之铭言：
: 昨天关於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");
试了一下,大概是我这边目录设错了
少了一个路径值
所以抓不到档案
然後斜线要变成两条反斜线
\\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 13:14)