面试题：SQLite与Perl语言集成时如何处理基本数据查询

Question

假设在SQLite数据库中有一张名为`employees`的表，包含`id`（整数类型）、`name`（文本类型）、`salary`（数值类型）字段。请用Perl语言结合SQLite语言扩展，编写代码实现查询`salary`大于5000的所有员工的`name`和`salary`信息，并将结果打印输出。

Answer 1

use DBI;

# 连接到SQLite数据库
my $dbh = DBI->connect('dbi:SQLite:dbname=your_database.db', '', '', { RaiseError => 1 });

# 执行查询
my $sth = $dbh->prepare('SELECT name, salary FROM employees WHERE salary > 5000');
$sth->execute();

# 打印结果
while (my @row = $sth->fetchrow_array) {
    print "Name: $row[0], Salary: $row[1]\n";
}

# 断开数据库连接
$sth->finish();
$dbh->disconnect();