简体中文

PostgreSQL 教程

高级PostgreSQL

PostgreSQL 接口

PostgreSQL 与 Perl 接口：初学者指南

你好，未来的数据库大师们！我很高兴能成为你们在这激动人心的 PostgreSQL 和 Perl 世界的向导。作为一个教计算机科学多年的老师，我可以向你们保证，这种组合就像花生酱和果酱一样——它们就是如此完美地搭配在一起！那么，让我们卷起袖子，开始吧！

PostgreSQL - Perl

安装

在我们开始烹饪一些数据库魔法之前，我们需要准备好我们的厨房（嗯...开发环境）。别担心，这比组装宜家家具还要简单！

  1. 首先，确保你的系统上安装了 PostgreSQL。如果没有，请访问 PostgreSQL 官方网站并按照他们的安装指南操作。

  2. 接下来，我们需要安装 Perl 的 DBI 模块和 DBD::Pg 驱动。打开你的终端并输入：

cpan install DBI DBD::Pg

如果你在 Windows 上，你可能需要使用 ppm 而不是 cpan。如果你看到很多文字滚动，不要恐慌——这只是你的计算机在执行任务！

DBI 接口 API

现在我们有了工具，来谈谈 DBI（数据库接口）API。把这些看作是你需要知道的秘密握手，以便与数据库通信。

以下是我们将使用的一些最常见的 DBI 方法表格：

方法 描述
connect() 连接到数据库
prepare() 准备一个 SQL 语句
execute() 执行一个准备好的语句
fetch() 获取一行数据
finish() 完成使用语句句柄
disconnect() 从数据库断开连接

如果这些看起来像是一堆字母汤，别担心。我们将在示例中使用每个方法，我保证它们会变得像你最喜欢的表情符号一样熟悉！

连接到数据库

让我们从向我们的数据库说“你好”开始。下面是如何操作：

use DBI;

my $dbname = "mydb";
my $host = "localhost";
my $port = "5432";
my $username = "postgres";
my $password = "password";

my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port",
$username,
$password,
{ AutoCommit => 1, RaiseError => 1 });

print "成功连接到数据库!\n";

让我们分解一下：

  • 我们使用之前安装的 DBI 模块。
  • 我们设置了连接细节（数据库名称、主机、端口、用户名和密码）。
  • connect() 方法建立连接。
  • AutoCommit => 1 意味着我们的每个数据库操作将自动提交。
  • RaiseError => 1 告诉 Perl 如果有错误就抛出异常。

如果你运行这个脚本并看到“成功连接到数据库!”，给自己一个击掌！

创建一个表

现在我们已经连接上了，让我们创建一个表。想象我们在构建一个简单的图书馆系统：

my $sql = "CREATE TABLE books (
id SERIAL PRIMARY KEY,
title VARCHAR(100) NOT NULL,
author VARCHAR(100) NOT NULL,
publication_year INTEGER
)";

$dbh->do($sql);
print "表 'books' 创建成功!\n";

这里发生了什么：

  • 我们定义了创建名为 'books' 的表的 SQL 语句。
  • do() 方法直接执行 SQL 语句。
  • 如果没有抛出错误，我们的表就被创建了！

INSERT 操作

让我们向我们的图书馆添加一些书籍：

my $sth = $dbh->prepare("INSERT INTO books (title, author, publication_year) VALUES (?, ?, ?)");

my @books = (
["银河系漫游指南", "道格拉斯·亚当斯", 1979],
["1984", "乔治·奥威尔", 1949],
["杀死一只知更鸟", "哈珀·李", 1960]
);

foreach my $book (@books) {
$sth->execute(@$book);
}

print "书籍添加成功!\n";

以下是分解：

  • 我们准备了一个带有占位符的 SQL 语句。
  • 我们创建了一个要插入的书籍数组。
  • 我们遍历数组，为每本书执行准备好的语句。
  • execute() 方法用我们的数据填充占位符。

SELECT 操作

现在，让我们检索我们的书籍：

$sth = $dbh->prepare("SELECT * FROM books");
$sth->execute();

while (my $row = $sth->fetchrow_hashref()) {
print "标题: $row->{title}, 作者: $row->{author}, 年份: $row->{publication_year}\n";
}

这里发生了什么：

  • 我们准备并执行了一个 SELECT 语句。
  • 我们使用一个 while 循环和 fetchrow_hashref() 来检索每一行。
  • 我们打印出每本书的详细信息。

UPDATE 操作

哦，我们犯了一个错误。"1984" 实际上是1948年出版的。让我们修正它：

$sth = $dbh->prepare("UPDATE books SET publication_year = ? WHERE title = ?");
$sth->execute(1948, "1984");

print "书籍更新成功!\n";

以下是我们的操作：

  • 我们准备了一个带有占位符的 UPDATE 语句。
  • 我们用正确的年份和书名执行它。

DELETE 操作

最后，让我们从我们的数据库中删除一本书：

$sth = $dbh->prepare("DELETE FROM books WHERE title = ?");
$sth->execute("银河系漫游指南");

print "书籍删除成功!\n";

以下是发生的事情：

  • 我们准备了一个带有占位符的 DELETE 语句。
  • 我们用要删除的书的标题执行它。

就这样！你刚刚学习了使用 Perl 与 PostgreSQL 交互的基础。记住，熟能生巧，所以不要害怕尝试这些命令。在你意识到之前，你将能在睡梦中编写数据库代码（尽管我不建议这么做——键盘不是好枕头）。

快乐编码，愿你的查询总是返回你期望的结果！

Credits: Image by storyset

上一教程:
PostgreSQL - PHP
下一教程:
PostgreSQL - Python