如何在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} };

From DBD::mysql 文档