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

Question

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

Answer 1

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

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

Answer 2

你可以试试这个，因为你提到了MySQL

my $threadId = $dbmyh->{ q{mysql_thread_id} };

来自DBD::mysql documentation