61
61
. join(", ", map { "sakila.$_" } @tables_in_sakila);
62
62
my @checksums = @{$dbh->selectall_arrayref($sql, {Slice => {} })};
63
63
foreach my $c ( @checksums ) {
64
65
$dbh->do("INSERT INTO percona_test.checksums(db_tbl, checksum)
65
66
VALUES('$c->{Table}', $c->{Checksum})");