使用Net::FTP模块问题

use threads;
use threads::shared;
use Net::FTP;
use FileHandle;
use File:ath;



our $ftp=Net::FTP->new("10.0.202.98.",Port=>21);
our $ftp->login("a","a";
our $ftp->binary;
our $ftp->cwd("ls";
our $ftp->get("SyslogCatchAll.txt.001"
      or die "get failed ", $ftp->message;
our $ftp->quit;


我想用上面的perl 脚本每天自动登陆ftp获取log文件，但是log文件的名字每天改变

6月1日的log是  SyslogCatchAll.txt.001   
每天累加
6月2日的log是  SyslogCatchAll.txt.002
6月3日的log是  SyslogCatchAll.txt.003

我应该如何写get的内容？
谢谢！

这个不是很有规律么？
date可以搞定

还有你都是用模块自动完成的
你登录上去还ls一下，这个结果给谁看？

ls是测试的，呵呵，用date如何解决？

用(localtime)[3]取出脚本运行的时是当月的第几天

1、取当天时间的函数很多，随便用一个就可以了，然后根据日期累计就可以实现自动加1了；
2、也可以不取日期，你在机器上设置一个schedual,每天定点run，然后写个config file，每完成一次，就设置config file中的数据自加1，下次再读，完成一次再加1，不就一样的可以取得一个自动加1 的序列了么？
而且只要你需要，你的config file 还可以对应很多东西。
这个是Schedual和程序结合再加一个config file，看起来比较复杂，不过，看你自己的选择了。