232 lines
7.8 KiB
Perl
232 lines
7.8 KiB
Perl
use strict;
|
|
use warnings;
|
|
use File::Copy;
|
|
use MIME::Base64 qw(decode_base64);
|
|
|
|
my $json_file_path = $ENV{'JSON_FILE_PATH'} or die;
|
|
my $dir = $ENV{'MYSQLTEST_VARDIR'} or die;
|
|
|
|
|
|
sub ibd2sdi_replace() {
|
|
# open file in write mode
|
|
open IN_FILE,"<", "$json_file_path" or die $! ;
|
|
open (OUT_FILE, ">:raw", "$dir/tmp/tmpfile") or die $! ;
|
|
while(<IN_FILE>) {
|
|
|
|
# Remove number output from "last_altered" value
|
|
$_=~ s/("last_altered": )[0-9]+/$1NNN/g;
|
|
|
|
# Remove number output from "created" value
|
|
$_=~ s/("created": )[0-9]+/$1NNN/g;
|
|
|
|
# Remove se_private_data: id & trx_id output. retain the root page number value
|
|
$_=~ s/("se_private_data":) "gcn=[0-9]+;id=[0-9]+;root=[0-9]+;scn=[0-9]+;space_id=[0-9]+;table_id=[0-9]+;trx_id=[0-9]+;uba=[0-9]+;"/$1 "gcn=F;id=A;root=B;space_id=C;table_id=D;trx_id=E"/g;
|
|
|
|
# Remove se_private_data: id & trx_id output. retain the root page number value
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;root=[0-9]+;trx_id=[0-9]+;"/$1 "id=X;root=Y;trx_id=Z"/g;
|
|
|
|
# Remove se_private_data: table_id.
|
|
$_=~ s/("se_private_data":) "table_id=[0-9]+;"/$1 "table_id=X"/g;
|
|
|
|
# Remove se_private_data: id.
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;"/$1 "id=X"/g;
|
|
|
|
# Remove se_private_id: id. This is innodb table_id
|
|
$_=~ s/("se_private_id":) [0-9]+/$1NNN/g;
|
|
|
|
# Remove object_id output
|
|
$_=~ s/("id": )[0-9]+/$1X/g;
|
|
|
|
# Remove file_per_tablespace id output in dd::Table
|
|
$_=~ s/("tablespace_ref": "innodb_file_per_table.)[0-9]+"/$1X"/g;
|
|
|
|
# Remove file_per_tablespace id output in dd::Tablespace
|
|
$_=~ s/("name": "innodb_file_per_table.)[0-9]+"/$1X"/g;
|
|
|
|
# Remove id output in se_prvate_data of dd::Tablespace
|
|
$_=~ s/("se_private_data": "flags=)([0-9]+)(;id=)([0-9]+)(;server_version=)([0-9]+)(;space_version=)([0-9]+);/$1X$3Y$5Z$7M;/g;
|
|
|
|
# Remove any version id
|
|
$_=~ s/("[a-z_]+_version_id": )[0-9]+/$1X/g;
|
|
|
|
# Remove any version
|
|
$_=~ s/("[a-z_]+_version": )[0-9]+/$1X/g;
|
|
|
|
# Remove se_private_data: null and table_id
|
|
$_=~ s/("se_private_data":) "default_null=[0-1];table_id=[0-9]+;"/$1 "default_null=X;table_id=Y"/g;
|
|
|
|
# Remove extra path separator seen on windows and partition names
|
|
if (m/"filename":/)
|
|
{
|
|
$_=~ s/\\\\/\//g;
|
|
}
|
|
|
|
$_=~ s/#P#/#p#/g;
|
|
|
|
$_=~ s/#SP#/#sp#/g;
|
|
|
|
$_=~ s/("default_value": ).*/$1"",/g;
|
|
|
|
# Names of SET elements in the input JSON are Base64-encoded.
|
|
# For the easier reading, append a fake "decoded-name": "foo" name/value pair
|
|
# to the output JSON, where "foo" is for a decoded SET element name.
|
|
$_=~ s/^ {24}"name": "([^"]+)",$/$& . ' "decoded-name": "' . decode_base64($1) . '",'/e;
|
|
|
|
print OUT_FILE $_;
|
|
}
|
|
close(IN_FILE);
|
|
close(OUT_FILE);
|
|
#move the new content from tmp file to the orginal file.
|
|
move ("$dir/tmp/tmpfile", "$json_file_path");
|
|
}
|
|
|
|
sub ibd2sdi_replace_system() {
|
|
# open file in write mode
|
|
open IN_FILE,"<", "$json_file_path" or die $! ;
|
|
open (OUT_FILE, ">:raw", "$dir/tmp/tmpfile") or die $! ;
|
|
while(<IN_FILE>) {
|
|
|
|
# Remove number output from "last_altered" value
|
|
$_=~ s/("last_altered": )[0-9]+/$1NNN/g;
|
|
|
|
# Remove number output from "created" value
|
|
$_=~ s/("created": )[0-9]+/$1NNN/g;
|
|
|
|
# Remove se_private_data: id & trx_id output. retain the root page number value
|
|
# This is only thing that differed from normal replace
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;root=[0-9]+;space_id=[0-9]+;table_id=[0-9]+;trx_id=[0-9]+;"/$1 "id=A;root=B;space_id=C;table_id=D;trx_id=E"/g;
|
|
|
|
# Remove se_private_data: id & trx_id output. retain the root page number value
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;root=[0-9]+;trx_id=[0-9]+;"/$1 "id=X;root=Y;trx_id=Z"/g;
|
|
|
|
# Remove se_private_data: table_id.
|
|
$_=~ s/("se_private_data":) "table_id=[0-9]+;"/$1 "table_id=X"/g;
|
|
|
|
# Remove se_private_data: id.
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;"/$1 "id=X"/g;
|
|
|
|
# Remove se_private_id: id. This is innodb table_id
|
|
$_=~ s/("se_private_id":) [0-9]+/$1NNN/g;
|
|
|
|
# Remove object_id output
|
|
$_=~ s/("id": )[0-9]+/$1X/g;
|
|
|
|
# Remove file_per_tablespace id output in dd::Table
|
|
$_=~ s/("tablespace_ref": "innodb_file_per_table.)[0-9]+"/$1X"/g;
|
|
|
|
# Remove file_per_tablespace id output in dd::Tablespace
|
|
$_=~ s/("name": "innodb_file_per_table.)[0-9]+"/$1X"/g;
|
|
|
|
# Remove id output in se_prvate_data of dd::Tablespace
|
|
$_=~ s/("se_private_data": "flags=)([0-9]+)(;id=)([0-9]+)(;server_version=)([0-9]+)(;space_version=)([0-9]+);/$1X$3Y$5Z$7M;/g;
|
|
|
|
# Remove any version id
|
|
$_=~ s/("[a-z_]+_version_id": )[0-9]+/$1X/g;
|
|
|
|
|
|
# Remove any version
|
|
$_=~ s/("[a-z_]+_version": )[0-9]+/$1X/g;
|
|
|
|
# Remove extra path separator seen on windows and partition names
|
|
if (m/"filename":/)
|
|
{
|
|
$_=~ s/\\\\/\//g;
|
|
}
|
|
|
|
$_=~ s/#P#/#p#/g;
|
|
|
|
$_=~ s/#SP#/#sp#/g;
|
|
|
|
$_=~ s/("default_value": ).*/$1"",/g;
|
|
|
|
# Names of SET elements in the input JSON are Base64-encoded.
|
|
# For the easier reading, append a fake "decoded-name": "foo" name/value pair
|
|
# to the output JSON, where "foo" is for a decoded SET element name.
|
|
$_=~ s/^ {24}"name": "([^"]+)",$/$& . ' "decoded-name": "' . decode_base64($1) . '",'/e;
|
|
|
|
print OUT_FILE $_;
|
|
}
|
|
close(IN_FILE);
|
|
close(OUT_FILE);
|
|
#move the new content from tmp file to the orginal file.
|
|
move ("$dir/tmp/tmpfile", "$json_file_path");
|
|
}
|
|
|
|
sub ibd2sdi_replace_mysql() {
|
|
# open file in write mode
|
|
open IN_FILE,"<", "$json_file_path" or die $! ;
|
|
open (OUT_FILE, ">:raw", "$dir/tmp/tmpfile") or die $! ;
|
|
while(<IN_FILE>) {
|
|
|
|
# Remove number output from "last_altered" value
|
|
$_=~ s/("last_altered": )[0-9]+/$1NNN/g;
|
|
|
|
# Remove number output from "created" value
|
|
$_=~ s/("created": )[0-9]+/$1NNN/g;
|
|
|
|
# Remove se_private_data: id & trx_id output. retain the root page number value
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;root=[0-9]+;space_id=[0-9]+;table_id=[0-9]+;trx_id=[0-9]+;"/$1 "id=A;root=B;space_id=C;table_id=D;trx_id=E"/g;
|
|
|
|
# Remove se_private_data: id & trx_id output. retain the root page number value
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;root=[0-9]+;trx_id=[0-9]+;"/$1 "id=A;root=B;trx_id=C"/g;
|
|
|
|
# Remove se_private_data: table_id.
|
|
$_=~ s/("se_private_data":) "table_id=[0-9]+;"/$1 "table_id=X"/g;
|
|
|
|
# Remove se_private_data: id.
|
|
$_=~ s/("se_private_data":) "id=[0-9]+;"/$1 "id=X"/g;
|
|
|
|
# Remove se_private_id: id. This is innodb table_id
|
|
$_=~ s/("se_private_id":) [0-9]+/$1NNN/g;
|
|
|
|
# Remove object_id output
|
|
$_=~ s/("id": )[0-9]+/$1X/g;
|
|
|
|
# Remove file_per_tablespace id output in dd::Table
|
|
$_=~ s/("tablespace_ref": "innodb_file_per_table.)[0-9]+"/$1X"/g;
|
|
|
|
# Remove file_per_tablespace id output in dd::Tablespace
|
|
$_=~ s/("name": "innodb_file_per_table.)[0-9]+"/$1X"/g;
|
|
|
|
# Remove id output in se_prvate_data of dd::Tablespace
|
|
$_=~ s/("se_private_data": "flags=)([0-9]+)(;id=)([0-9]+)(;server_version=)([0-9]+)(;space_version=)([0-9]+);/$1X$3Y$5Z$7M;/g;
|
|
|
|
# Remove any version id
|
|
$_=~ s/("[a-z_]+_version_id": )[0-9]+/$1X/g;
|
|
|
|
# Remove any version
|
|
$_=~ s/("[a-z_]+_version": )[0-9]+/$1X/g;
|
|
|
|
# Remove extra path separator seen on windows and partition names
|
|
if (m/"filename":/)
|
|
{
|
|
$_=~ s/\\\\/\//g;
|
|
}
|
|
|
|
$_=~ s/#P#/#p#/g;
|
|
|
|
$_=~ s/#SP#/#sp#/g;
|
|
|
|
$_=~ s/("default_value": ).*/$1"",/g;
|
|
|
|
$_=~ s/("collation_id": )[0-9]+/$1X/g;
|
|
|
|
# Names of SET elements in the input JSON are Base64-encoded.
|
|
# For the easier reading, append a fake "decoded-name": "foo" name/value pair
|
|
# to the output JSON, where "foo" is for a decoded SET element name.
|
|
$_=~ s/^ {24}"name": "([^"]+)",$/$& . ' "decoded-name": "' . decode_base64($1) . '",'/e;
|
|
|
|
|
|
print OUT_FILE $_;
|
|
}
|
|
|
|
close(IN_FILE);
|
|
close(OUT_FILE);
|
|
#move the new content from tmp file to the orginal file.
|
|
move ("$dir/tmp/tmpfile", "$json_file_path");
|
|
}
|
|
|
|
# "require ibd2sdi.pl" says the module should return true and this
|
|
# achieved by the below statement
|
|
1;
|