{求助}perl FTP 上传文件

ydjh460

求一份脚本，
实现的功能是：将本地的文件夹下的文件上传至FTP服务器，此脚本每10分钟运行一次，上次运行上传过的文件本次就不要上传了，脚本运行时只上传新生成的文件

谁有这方面类型的脚本，不胜感激。

或者提供一个可行的思路 ，谢谢了，新人求助。

ytphrx

起用TK定時器，10分鐘執行一次上傳子程序就可以了。
$widget->after(TimeValue, \&SubProduceName)
sub SubProduceName
{
上傳內容。。。。判斷是否需要上傳，可以使用另外一個文件記錄上傳過的資料。
}

ydjh460

有没有完整点的代码，完全不知道perl里面怎么用TK定时器啊回复 2# ytphrx


   

ydjh460

UP  着急啊

laputa73

用cron 10分钟调一次 不就好了
把要上传的文件放在一个目录
上传完毕的mv到另一个目录
sh都可以搞定

ytphrx

#!/usr/local/bin/perl
use Tk;
use Tk::Font;
my $mw = Tk::MainWindow->new(-title=>"Timer");
$mw->geometry("100x100");
my $id;
my $button=$mw->Button(-text=>"Timer repeat",-command=>\&subprodece1)->pack;
my $button1=$mw->Button(-text=>"Timer cancel",-command=>\&subproduce)->pack;
$id1=$button1->afterIdle(sub{print "\nidle subproduce"});
MainLoop;
sub subproduce
{
print $button1->afterInfo($id);
$id->cancel;
}
sub subprodece1
{
$id=$button1->repeat(60000,sub{print "\nrepeat"});
}


说明：
本例点击按钮Timer repeat时创建一个不断重复计时的定时器，每当计时结束时就调用执行一次子程序输出字符串到标准输出设备上。当点击按钮Timer cancel时会输出指定定时器的相关信息如下例子：
Tk::Callback=ARRAY(0x478e1d4) 60000 repeat
其信息第一项是定时器调用的子程序引用，第二项是定时器的计时时间，第三项是定时器的种类。

stanley_tam

这脚本是在什么系统上运行？ 每十分钟运行一次是说的cron job还是schedule task？ 或者是脚本一直在运行，只是每十分钟做一次上传？

rubyish

用cron 10分钟调一次
code 没有测试，不知道是否正确
read:
http://perldoc.perl.org/Net/FTP.html

1. #!/usr/bin/perl
   
2. # use 5.018;
   
3. use Net::FTP;
   
4. 
   
5. my $dir   = '/tmp';
   
6. my $updir = '/pub';
   
7. my $FTP   = 'some.host.name';
   
8. my $usr   = 'abc';
   
9. my $pass  = 'hello';
   
10. my @files = glob "$dir/*";
    
11. system "touch $dir/.putlog" unless -e "$dir/.putlog";
    
12. 
    
13. open my $fh, '+<', "$dir/.putlog";
    
14. my %ok = map { chomp; $_, 1 } <$fh>;
    
15. my @up = grep { !$ok{$_} } @files;
    
16. 
    
17. exit unless @up;
    
18. print $fh "$_$/" for @up;
    
19. close $fh;
    
20. 
    
21. # http://perldoc.perl.org/Net/FTP.html
    
22. print "ftp begin\n";
    
23. 
    
24. my $ftp = Net::FTP->new( $FTP, Debug => 0 )
    
25.   or die "Cannot connect to $FTP: $@";
    
26. 
    
27. $ftp->login( $usr, $pass )
    
28.   or die "Cannot login ", $ftp->message;
    
29. $ftp->cwd($updir)
    
30.   or die "Cannot change working directory ", $ftp->message;
    
31. for my $f (@up) {
    
32.     $ftp->put($f) or die "put failed ", $ftp->message;
    
33. }
    
34. 
    
35. $ftp->quit;
    

复制代码

ytphrx

回复 7# stanley_tam

启动脚本，会出现一个主界面，点击设置定时器的按钮，不要关闭脚本，每隔6s调用一次子程序，你想做什么就把功能放在子程序中就可以了。另外一个按钮用于取消定时器。定时器以毫秒为单位，我设置了60000，不对，才1分钟，你可以多设置一点时间，测试结果。可以运行在win32系统或者xwindow系统。
或者你也可以试验一下8楼的建议，看看哪个合适。

stanley_tam

sorry, 我的错。偶问的楼主{:3_203:} 回复 9# ytphrx