Почему $dbh->disconnect
вызывает пробелы в столбце автоинкремента?
use DBI;
my $db = 'MYDB2';
my $table = 'SCHEMA.TABLE';
my $user = 'user';
my $pass = 'passwd';
my $dsn = "dbi:DB2:$db";
my $dbh = DBI->connect( $dsn, $user, $pass );
$dbh->do( "DROP TABLE IF EXISTS $table" );
$dbh->do( "CREATE TABLE $table (ID INT NOT NULL GENERATED ALWAYS AS IDENTITY PRIMARY KEY, NAME CHAR(3))" );
my $sth = $dbh->prepare( "INSERT INTO $table (NAME) VALUES(?)" );
$sth->execute( 'aaa' );
$sth->execute( 'bbb' );
$sth = $dbh->prepare( "SELECT * FROM $table" );
$sth->execute();
$sth->dump_results;
$sth->finish;
$dbh->disconnect;
$dbh = DBI->connect( $dsn, $user, $pass );
$sth = $dbh->prepare( "INSERT INTO $table (NAME) VALUES(?)" );
$sth->execute( 'ccc' );
$sth->execute( 'ddd' );
$sth = $dbh->prepare( "SELECT * FROM $table" );
$sth->execute();
$sth->dump_results;
'1', 'aaa'
'2', 'bbb'
2 rows
'1', 'aaa'
'2', 'bbb'
'21', 'ccc'
'22', 'ddd'
4 rows
Без disconnect
столбец автоинкремента создается без пробелов:
use DBI;
my $db = 'MYDB2';
my $table = 'SCHEMA.TABLE';
my $user = 'user';
my $pass = 'passwd';
my $dsn = "dbi:DB2:$db";
my $dbh = DBI->connect( $dsn, $user, $pass );
$dbh->do( "DROP TABLE IF EXISTS $table" );
$dbh->do( "CREATE TABLE $table (ID INT NOT NULL GENERATED ALWAYS AS IDENTITY PRIMARY KEY, NAME CHAR(3))" );
my $sth = $dbh->prepare( "INSERT INTO $table (NAME) VALUES(?)" );
$sth->execute( 'aaa' );
$sth->execute( 'bbb' );
$sth = $dbh->prepare( "SELECT * FROM $table" );
$sth->execute();
$sth->dump_results;
$sth->finish;
#$dbh->disconnect;
$dbh = DBI->connect( $dsn, $user, $pass );
$sth = $dbh->prepare( "INSERT INTO $table (NAME) VALUES(?)" );
$sth->execute( 'ccc' );
$sth->execute( 'ddd' );
$sth = $dbh->prepare( "SELECT * FROM $table" );
$sth->execute();
$sth->dump_results;
'1', 'aaa'
'2', 'bbb'
2 rows
'1', 'aaa'
'2', 'bbb'
'3', 'ccc'
'4', 'ddd'
4 rows
Это работает так, как задумано, не гарантируется, что столбцы IDENTITY GENERATED ALWAYS будут последовательными, и следует ожидать пробелов.
Это не имеет ничего общего с Perl или DBD:DB2, это просто то, как Db2 реализует столбцы идентификаторов, которые ГЕНЕРИРУЮТСЯ ВСЕГДА. Db2 внутренне поддерживает небольшой кэш значений идентификаторов для таких столбцов для каждого соединения, и вы можете получить пробелы после ROLLBACK транзакции, которая использовала значение, или после сбоя или аварийного завершения, или если другие приложения (другие соединения) вставляют значения в тот же столбец идентификаторов, или значение приращения/уменьшения не равно 1, или деактивация базы данных.
Хотя вы можете использовать параметр «NO CACHE» при указании столбца идентификаторов или указать меньшее значение кэша, эти параметры нежелательны по причинам производительности/конкурентности.
Вы также можете уменьшить деактивацию базы данных (но не устранить ее), организовав явную активацию базы данных до того, как произойдет первое подключение ( db2 activate database $dbname
). Это гарантирует, что база данных не деактивируется автоматически при отключении последнего соединения, и в этом случае кэш предварительно выделенных номеров для столбца (столбцов) идентификаторов не будет потерян.
Если вы хотите обеспечить нулевые промежутки, вы должны использовать другой метод, который обычно влияет на производительность для приложений с высокой частотой вставки и/или проблемы с масштабируемостью/параллельностью.
Вы можете изменить это, используя опцию КЭШ для столбцов идентификаторов. По сути, из соображений производительности ряд идентификаторов кэшируется и используется, чтобы избежать синхронизации. Вы можете уменьшить разрыв, но рискуете снижением производительности.
Причина в том, что база данных деактивируется, скорее всего, при отключении сеанса вашего приложения, так как это единственное приложение, работающее с базой данных.
Когда база данных деактивируется, все неиспользуемые значения кэша последовательности теряются.
Вы можете избежать неявной активации/деактивации базы данных с помощью команды ACTIVATE DATABASE
. Но это не поможет вам избежать разрывов в случае откатов и перезапуска инстанса.