1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/env perl
use SQL::Translator;
use Data::Dumper;
use lib './bin';
use Skip_tables qw( @skip_tables );
$SQL::Translator::DEBUG = 0;
my $in = shift;
open(IN,$in) || die "couldn't open $in: $!";
my @create = <IN>;
my $create = join '', @create;
my $tr = SQL::Translator->new(
parser => "PostgreSQL",
producer => "HTML",
producer_args => {
pretty => 1,
},
filters => [
sub {
my $schema = shift;
foreach (@skip_tables) {
$schema->drop_table($_);
}
},
],
);
print $tr->translate(\$create);
|
