mysql - 如何在 Perl、DBI 中显示查询时间？

Question

我使用 Perl 和 DBI 来管理我的 MySQL 表、查询等。如何显示查询的运行时间？

如果我在控制台中执行 SELECT，结果将是这样的:

+-----+-------------+
| id  | name        |
+-----+--------------
|   1 | Jack        |
|   2 | Joe         |
|   3 | Mary        |
+-----+-------------+
3 rows in set (0.17 sec)

我需要显示 0.17 秒。在 DBI 中有什么方法可以在 Perl 中显示运行时间，像这样？

my $dbh = $db->prepare("SELECT id, name FROM names ORDER BY id;");
$dbh->execute;
print $dbh->runnin_time; # ???

Answer 1

DBI#Profile , DBI::Profile , DBI::ProfileData , DBI::ProfileDumper , dbiprof