dbp.pl

#!/usr/bin/env perl

# Quick and dirty way of adding a prefix to all tables
# in a sql file
#
# Takes a sql file, duplicates it, and adds whatever
# prefix you pass to all TABLE and INSERT statements
# in the copied file.
#
# Usage: ./dbp.pl example.sql prefix

use strict;
use warnings;

use Tie::File;
use File::Copy;
use File::Basename;

my $file = $ARGV[0];
my $prefix = $ARGV[1]; 

my ($base, $dir, $ext) = fileparse($file, qr/\.[^.]+$/);
my $new = "$base-prefixed$ext";

copy($file, $new);

tie my @array, 'Tie::File', $new or die();

for (@array) {
	if (/TABLE/i || /INSERT/) {
		s/(`{1})(.*?[^`])(`{1})/`$prefix\_$2`/g;
	}
}

untie @array;