Percona MongoDB3.2 HotBackup Perl Scripts
#!/usr/bin/perl use MongoDB;use File::Path;
use POSIX qw(strftime);
my $mc = MongoDB::MongoClient->new(
host => "mongodb://localhost:37019/",
username => "admin",
password => "123456",
);
my $db = $mc->get_database("admin");
$year = strftime "%Y",localtime;
$month = strftime "%m",localtime;
$time = strftime "%Y-%m-%d-%H-%M-%S", localtime;
$BAKDB = "cfgdb";
$BAKDIR = "/data/bak/hcy/$year/$month/$BAKDB\_$time";
my $user = getpwnam "mongodb" or die "bad user";
my $group = getgrnam "mongodb" or die "bad group";
mkpath($BAKDIR) or die "目录已存在. $!";
chown $user, $group, $BAKDIR;
my $cmd = [
createBackup => 1,
backupDir => $BAKDIR
];
$db->run_command($cmd);
if($! == 0){
print "backup is success.
";
}else{
print "backup is failure.
";
}
页:
[1]