/usr/share/doc/libdbd-odbc-perl/examples/identity.pl is in libdbd-odbc-perl 1.56-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | #!/usr/bin/perl -w
# $Id$
use strict;
use DBI;
my $dbh = DBI->connect();
# create a temp table with an identity property on a column:
my $sql = qq{CREATE TABLE #TEMP1 (MyCol INT NOT NULL IDENTITY)};
$dbh->do($sql);
# Set the identity insert property for this table on
# this should allow me to explicitly give a value to be inserted into the # identity column:
$sql = qq{SET IDENTITY_INSERT #TEMP1 ON};
$dbh->do($sql); # Added by JLU
# now try to insert an explicit value into this identity column:
$sql = qq{INSERT INTO #TEMP1 (MyCol) VALUES (1)};
$dbh->do($sql);
$dbh->disconnect;
|