Perl 备份Svn,利用7z 打包并且加密,上传至FTP

最新推荐文章于 2021-08-09 12:58:42 发布

lpysky

最新推荐文章于 2021-08-09 12:58:42 发布

阅读量206

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/lpysky/article/details/83830522

本文介绍了一段Perl脚本，用于自动备份指定的Svn仓库，并将其上传至FTP服务器。脚本首先获取当前日期和前7天的日期，然后读取配置文件以获取所需的FTP凭据、仓库路径、备份目录等信息。脚本通过遍历备份列表，依次备份每个仓库，并打包成7z文件。最后，脚本会删除FTP上的旧备份，并上传当前的7z文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl -w
use strict;
use Net::FTP;
use Config::Tiny;
use POSIX "strftime";
# 获取系统当前日期
my $data_now = strftime( "%Y-%m-%d", localtime( time() - 86400 * 0 ) );
# 获取前7天日期
my $data5 = strftime( "%Y-%m-%d", localtime( time() - 86400 * 7 ) );
my $Config = Config::Tiny->new();
$Config = Config::Tiny->read('Config.ini');
# Net::Ftp
my $FTP_User = $Config->{Net_FTP}->{FTP_User};
my $FTP_Password = $Config->{Net_FTP}->{FTP_Password};
my $FTP_Ipaddre = $Config->{Net_FTP}->{FTP_Ipaddre};
# 备份列表
my $Backup_List = $Config->{Settings}->{Backup_List};
# Subversion 仓库路径
my $svn_repos = $Config->{Settings}->{Svn_Repos_Path};
# 目标路径
my $backup_dir = $Config->{Settings}->{Backup_Tirget};
# Password
my $Zip_Passwd = $Config->{Settings}->{Zip_Passwd};
# Svn仓库
my @repos = split /,/ => $Backup_List;
foreach (@repos) {
&start_thread($_);
}
sub start_thread {
my ($repos_loop) = @_;
my $next_backup_file = "$repos_loop\_$data_now";
# 定义backup路径
my $repos_Path = "$backup_dir/Temp/$repos_loop";
# 如果目录不存就创建
system("mkdir -p $repos_Path") if ( !-e "$repos_Path" );
&LOGINFO( 'INFO',"正在备份 ---> $svn_repos/$repos_loop");
system("svnadmin hotcopy $svn_repos/$repos_loop $repos_Path");
}
# 存放包路径
mkdir("$backup_dir/Package") if ( !-e "$backup_dir/Package" );
# 设置口令为123456
&LOGINFO( 'INFO',"正在打包 7z a -bd -p$Zip_Passwd $backup_dir/Package/Svn_$data_now.7z $backup_dir/Temp");
system("7z a -bd -p$Zip_Passwd $backup_dir/Package/Svn_$data_now.7z $backup_dir/Temp");
# 删除本地前次备份的7z文件
system("rm -rf $backup_dir/Package/Svn_$data5.7z");
# Delete Temp
system("rm -rf $backup_dir/Temp");
&Net_FTP( "$FTP_User", "$FTP_Password", "$FTP_Ipaddre", "Subversion", "Put" );
#Net_FTP文件上传部分
sub Net_FTP {
my ( $FTP_User, $FTP_Password, $FTP_Ipaddre, $FTP_Backup, $Action ) = @_;
my $ftp = Net::FTP->new(
"$FTP_Ipaddre",
Debug => 0,
Timeout => 360
) or die &LOGINFO( 'ERROR', "不能连接到FTP服务器,错误原因:" . $@ );
if ( $ftp->login( $FTP_User, $FTP_Password ) ) {
&LOGINFO( 'INFO', "Net::FTP 成功连接服务器$FTP_Ipaddre" );
}
else {
&LOGINFO( 'ERROR', "Net::FTP 不能登陆FTP $FTP_Ipaddre服务器,错误原因:" . $@ );
}
#切换目录
$ftp->cwd("/$FTP_Backup"), my $FTP_error = $ftp->message;
if ( $FTP_error =~ /failed/i ) {
&LOGINFO( 'INFO', "$FTP_Backup 目录不存在,开始创建目录 $FTP_Backup" );
$ftp->mkdir($FTP_Backup);
&LOGINFO( 'INFO', "$FTP_Backup 目录创建完毕,并切换到目录创建目录" );
$ftp->cwd("/$FTP_Backup");
}
#删除FTP上前5天的备份
&LOGINFO( 'INFO', "删除FTP前5天的备份 /$FTP_Backup/Svn_$data5.7z" );
$ftp->delete("/$FTP_Backup/Svn_$data5.7z"), my $FTP_Error = $ftp->message;
&LOGINFO( 'INFO', "/$FTP_Backup/Svn_$data5.7z" );
&LOGINFO( 'INFO', "$FTP_Error" );
&LOGINFO( 'INFO', "Net::FTP 使用binary二进制格式上传" );
$ftp->binary();
#如果动作等于Put
if ( $Action eq "Put" ) {
&LOGINFO( 'INFO', "正在上传至 $FTP_Backup" );
$ftp->put("$backup_dir/Package/Svn_$data_now.7z") or die &LOGINFO( 'ERROR', "上传 $backup_dir/Package/Svn_$data_now.7z 失败" );
}
&LOGINFO( 'INFO', "File Svn_$data_now.7z 上传 successfully\n" );
$ftp->quit;
}
sub current_time {
my $time_now = POSIX::strftime( "[%Y-%m-%d %H:%M:%S]", localtime );
return $time_now;
}
sub LOGINFO {
my ( $INFO, $Message ) = @_;
open FH, ">>logs/$data_now\.txt";
my $start_time = &current_time();
print("$start_time $INFO $Message \n");
print FH ("$start_time $INFO $Message \n");
close(FH);
}