Python 的数据库查询速度较慢，但 Perl 则不然

Python与Perl数据库查询速度差异的探讨

python
# Python代码示例
import time
import sqlite3
# 连接到SQLite数据库
conn = sqlite3.connect('example.db')
cursor = conn.cursor()
# 查询条件
condition = 'some_condition'
# 记录查询开始时间
start_time = time.time()
# 执行查询
cursor.execute(f"SELECT COUNT(*) FROM my_table WHERE column = '{condition}'")
result = cursor.fetchone()
# 记录查询结束时间
end_time = time.time()
# 输出查询结果和耗时
print(f"Python查询结果：{result[0]}")
print(f"查询耗时：{end_time - start_time}秒")
# 关闭数据库连接
conn.close()

perl
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
# 连接到SQLite数据库
my $dbh = DBI->connect("dbi:SQLite:dbname=example.db", "", "") or die $DBI::errstr;
# 查询条件
my $condition = 'some_condition';
# 记录查询开始时间
my $start_time = time();
# 执行查询
my $sth = $dbh->prepare("SELECT COUNT(*) FROM my_table WHERE column = ?");
$sth->execute($condition);
my $result = $sth->fetchrow_array();
# 记录查询结束时间
my $end_time = time();
# 输出查询结果和耗时
print "Perl查询结果：$result%
";
print "查询耗时：" . ($end_time - $start_time) . "秒%
";
# 关闭数据库连接
$dbh->disconnect;