数据结构
网络
关系数据库管理系统(RDBMS)
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C语言编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
服装学
法学如何在Perl中创建数据库连接？
假设我们将使用Perl连接MySQL数据库。在连接数据库之前，请确保以下几点。如果您不了解如何在MySQL数据库中创建数据库和表，可以参考我们的MySQL教程。
- 您已创建了一个名为TESTDB的数据库。
- 您已在TESTDB中创建了一个名为TEST_TABLE的表。
- 该表包含字段FIRST_NAME、LAST_NAME、AGE、SEX和INCOME。
- 已设置用户ID“testuser”和密码“test123”来访问TESTDB。
- 您的机器上已正确安装Perl模块DBI。
- 您已阅读MySQL教程以了解MySQL基础知识。
以下是连接MySQL数据库“TESTDB”的示例：
#!/usr/bin/perl use DBI use strict; my $driver = "mysql"; my $database = "TESTDB"; my $dsn = "DBI:$driver:database=$database"; my $userid = "testuser"; my $password = "test123"; my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
如果与数据源建立连接，则返回数据库句柄并将其保存到$dbh以供进一步使用，否则$dbh设置为 undef 值，而$DBI::errstr返回错误字符串。
断开数据库连接
要断开数据库连接，请使用**disconnect** API，如下所示：
$rc = $dbh->disconnect or warn $dbh->errstr;
disconnect方法的事务行为，遗憾的是，是未定义的。一些数据库系统（例如Oracle和Ingres）会自动提交任何未完成的更改，但其他系统（例如Informix）会回滚任何未完成的更改。不使用AutoCommit的应用程序应在调用disconnect之前显式调用commit或rollback。
更新于：2019年12月2日
370 次浏览
广告