如何在Perl中确定Mysql连接ID？

我想了解,我的模块是否与 MySQL共享DBI连接或没有.我想确定他们的连接ID.可能有更好的解决方案(我想知道它们),但第一个问题仍然是知道连接ID.

解决方法

您可以使用 CONNECTION_ID功能,例如：

my ($id) = $dbh->selectrow_array('SELECT CONNECTION_ID()');