Split mysqldump to separate databases or tables

mysqldump2databases.pl

#!/usr/bin/perl

use strict;
use warnings;

my $filenum = 0;
my $fd;

while(<>) {
        if (/^-- Current Database: /) {
                if (defined $fd) {
                        close $fd;
                        undef $fd;
                }
        }
        if (not defined $fd) {
                my $s = sprintf("%04d.sql", $filenum++);
                open $fd, ">$s";
                print STDERR "$s...\n";
        }
        print $fd $_;
}

close $fd if defined $fd;

mysqldump2queries.pl

#!/usr/bin/perl

use strict;
use warnings;

my $filenum = 0;
my $fd;

sub fdclose() {
        return if !defined $fd;
        close $fd;
        undef $fd;
}

while(<>) {
        if (not $_ or $_ eq "\n" or /^--/) {
                fdclose();
                next;
        }
        if (not defined $fd) {
                my $s = sprintf("%05d.sql", $filenum++);
                open $fd, ">$s";
                print $fd "SELECT 'CHECKPOINT: $s';\n";
                print STDERR "$s...\n";
        }
        print $fd $_;
}

fdclose();