Perl操作SQL Server：插入后无法获取IDENTITY值的技术问询

看起来你卡在了插入后拿不到自增ID的环节，我来帮你梳理下问题和解决方案：

首先，你的原代码用了OUTPUT @@IDENTITY但fetchrow_array()拿不到数据，主要有两个可能的原因：一是@@IDENTITY本身的安全性问题，二是结果集的处理方式可以优化。下面给你几个靠谱的解决办法：

方法1：用OUTPUT子句直接返回插入行的ID（最直观） #

先把@@IDENTITY换成inserted.你的自增列名，因为@@IDENTITY会返回当前会话里所有表的最后自增ID——如果你的表有触发器插入其他带自增列的表，你拿到的就不是你要的ID了。而inserted是SQL Server插入操作的虚拟表，直接取它的自增列值才是最准确的。

修改你的SQL和代码：

# 把your_identity_column替换成你表中实际的IDENTITY列名（比如id）
my $term_sql = "INSERT INTO reminder_term(site, name, description, localization) OUTPUT inserted.your_identity_column VALUES(?,?,?,?)";
my $t_stmt = $dbh->prepare($term_sql);
$t_stmt->execute($site, $name, $description, $localizer);

# 不需要while循环，因为INSERT只会返回一行结果
my @row = $t_stmt->fetchrow_array();
if (@row) {
    $referential_key = $row[0];
}

这样修改后，只要你的Perl驱动（比如DBD::ODBC）支持OUTPUT子句的结果集，就能直接拿到正确的ID。

方法2：用DBI标准方法last_insert_id（最省心） #

Perl的DBI自带了last_insert_id方法，专门用来获取最后插入的自增ID，不需要写OUTPUT子句，兼容性更好。

代码示例：

my $term_sql = "INSERT INTO reminder_term(site, name, description, localization) VALUES(?,?,?,?)";
my $t_stmt = $dbh->prepare($term_sql);
$t_stmt->execute($site, $name, $description, $localizer);

# 参数依次是：目录、模式、表名、自增列名、属性（SQL Server前三个可以传undef）
$referential_key = $dbh->last_insert_id(undef, undef, 'reminder_term', 'your_identity_column');

这个方法的好处是符合DBI的标准规范，就算以后换其他数据库（比如MySQL），只需要调整参数就能用，不用改太多代码。

原代码失效的可能原因 #

• @@IDENTITY的局限性：如果你的表有触发器在插入时操作了其他带IDENTITY列的表，@@IDENTITY会返回触发器生成的ID，而不是你当前插入的ID；
• 驱动兼容性：旧版本的Perl SQL Server驱动可能对OUTPUT子句的结果集处理有问题，升级驱动或者换用last_insert_id就能解决；
• 循环冗余：INSERT操作只会返回一行结果，用while循环反而可能因为fetch后没有更多行导致你误以为没拿到数据。

内容的提问来源于stack exchange，提问作者Intrinsic