mysql分成多个文件_通过数据库拆分具有多个数据库的mysqldump文件

这个Perl脚本应该做的伎俩.

#!/usr/bin/perl -w

#

# splitMysqLdump - split MysqLdump file into per-database dump files.

use strict;

use warnings;

my $dbfile;

my $dbname = q{};

my $header = q{};

while (<>) {

# Beginning of a new database section:

# close currently open file and start a new one

if (m/-- Current Database\: \`([-\w]+)\`/) {

if (defined $dbfile && tell $dbfile != -1) {

close $dbfile or die "Could not close file!"

}

$dbname = $1;

open $dbfile,">>","$1_dump.sql" or die "Could not create file!";

print $dbfile $header;

print "Writing file $1_dump.sql ...\n";

}

if (defined $dbfile && tell $dbfile != -1) {

print $dbfile $_;

}

# Catch dump file header in the beginning

# to be printed to each separate dump file.

if (! $dbname) { $header .= $_; }

}

close $dbfile or die "Could not close file!"

对于包含所有数据库的转储文件运行此操作

./splitMysqLdump < all_databases.sql