Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132use strict;use warnings;use 5.010;use DBI;use Config::JSON;use Text::Diff;use Switch::Right;my $config = Config::JSON->new('/home/lacuna/server/etc/lacuna.conf');my $dev = DBI->connect($config->get('db/dsn'), $config->get('db/username'), $config->get('db/password'));my $prod = DBI->connect('DBI:mysql:prod', $config->get('db/username'), $config->get('db/password'));
my @dev_tables = @{$dev->selectcol_arrayref("show tables")};my @prod_tables = @{$prod->selectcol_arrayref("show tables")};foreach my $table_name (@dev_tables) { say "TABLE: ".$table_name; my $dev_table = get_table_definition($dev, $table_name); my $prod_table = ''; if (smartmatch($table_name, any => \@prod_tables)) { $prod_table = get_table_definition($prod, $table_name); } say diff \$prod_table, \$dev_table;}
$dev->disconnect;$prod->disconnect;
sub get_table_definition { my ($db, $name) = @_; return $db->selectrow_arrayref("show create table $name")->[1];}