perl 可以吗?
追问只要可以实现:我要把数据备份到远程LINUX/ftp服务器上,要在FTP服务器上建立以当前日期为名字的文件夹,或者有一定规律命名的文件夹。。per1脚本怎么写?
追答你在 ftp服务器上 建个计划任务 不就行了 先建好这个文件 然后这边再上传 时间错开就行了 没必要这么麻烦
追问没有在FTP服务器上的权限
追答 #!/usr/bin/perl -w
use Net::FTP;
sub getTime{
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$day=($day<10)?"0$day":$day;
$mon=($mon<9)?"0".($mon+1):($mon+1);
$year+=1900;
$sec=($sec<10)?"0$sec":$sec;
$min=($min<10)?"0$min":$min;
$hour=($hour<10)?"0$hour":$hour;
my $now="$year$mon$day"; #这边定义创建文件夹的命名格式 现在是 年月日 中间没分隔符
return $now;
}
$ftp = Net::FTP->new
(
"1.1.1.1", #ftp地址
Timeout => 30 ) or die "Could not connect.\n";
#登录用的用户名和密码
$username = 'test';
$password = 'test';
$ftp->login($username,$password) or die "Could not login.\n";
#$ftp->cwd('/test') or die "Can not change dir :,$ftp->message"; #切换目录到/test 如果不是在根目录下创建这边可以切换
$name=getTime;
$ftp->mkdir("/$name") or die "Can not mkdir :",$ftp->message;
$ftp->quit;
### 运行前需要先安装下perl 模块, shell 下执行 cpan Net::FTP
本回答被提问者采纳