MySQL 및 Perl: 데이터 백업 및 복구 기능을 구현하는 방법

#!/usr/bin/perl use strict; use warnings; use DBI; # MySQL数据库连接配置 my $host = "localhost"; my $port = 3306; my $user = "root"; my $password = "password"; # 备份目录 my $backup_dir = "/backup"; # 获取当前日期时间 my ($sec, $min, $hour, $day, $month, $year) = localtime(); my $timestamp = sprintf("%04d%02d%02d_%02d%02d%02d", $year + 1900, $month + 1, $day, $hour, $min, $sec); # 创建备份目录 my $backup_path = "$backup_dir/$timestamp"; mkdir($backup_path) or die "无法创建备份目录：$backup_path"; # 连接MySQL数据库 my $dsn = "DBI:mysql:host=$host;port=$port"; my $dbh = DBI->connect($dsn, $user, $password) or die "无法连接数据库"; # 获取所有数据库 my $get_databases_sql = "SHOW DATABASES"; my $get_databases_sth = $dbh->prepare($get_databases_sql); $get_databases_sth->execute(); # 备份每个数据库 while (my ($database) = $get_databases_sth->fetchrow_array()) { next if ($database eq "information_schema" || $database eq "mysql" || $database eq "performance_schema"); my $backup_file = "$backup_path/$database.sql"; my $backup_command = "mysqldump -h $host -P $port -u $user -p$password $database > $backup_file"; system($backup_command) == 0 or die "备份失败：$database"; } $get_databases_sth->finish(); $dbh->disconnect(); print "备份完成：$backup_path ";

#!/usr/bin/perl use strict; use warnings; use DBI; # MySQL数据库连接配置 my $host = "localhost"; my $port = 3306; my $user = "root"; my $password = "password"; # 备份文件 my $backup_file = "/backup/20220101_120000/db1.sql"; # 连接MySQL数据库 my $dsn = "DBI:mysql:host=$host;port=$port"; my $dbh = DBI->connect($dsn, $user, $password) or die "无法连接数据库"; # 恢复数据 my $restore_command = "mysql -h $host -P $port -u $user -p$password < $backup_file"; system($restore_command) == 0 or die "恢复失败：$backup_file"; $dbh->disconnect(); print "数据恢复完成：$backup_file ";