首页 > 数据库 >无涯教程-Perl - 数据库访问

无涯教程-Perl - 数据库访问

时间：2023-08-04 13:33:34浏览次数：49  
标签：DBI dbh 教程 die sth 无涯 Perl errstr my

本章教您如何在Perl脚本中访问数据库。从Perl 5开始，使用 DBI 模块编写数据库应用程序变得非常容易。 DBI代表Perl的数据库独立接口，这意味着DBI在Perl代码和基础数据库之间提供了一个抽象层，使您可以真正轻松地切换数据库实现。

DBI体系结构

DBI独立于后端中可用的任何数据库。无论您是使用Oracle，MySQL还是Informix等，都可以使用DBI。从以下架构图可以清楚地看出这一点。

Perl Database Module DBI Architecture

在这里，DBI负责通过API(即应用程序编程接口)获取所有SQL命令，并将其分派给适当的驱动程序以进行实际执行。最后，DBI负责从驱动程序获取输出并将其返回给调用脚本。

数据库连接

假设我们要使用MySQL数据库，如果您不知道如何在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;

插入数据

要在表中创建一些记录时，需要执行INSERT操作。在这里，我们使用表TEST_TABLE创建记录。因此，一旦我们创建了数据库连接，就可以将记录创建到TEST_TABLE中了。以下是将单个记录创建到TEST_TABLE中的过程。

my $sth=$dbh->prepare("INSERT INTO TEST_TABLE
                       (FIRST_NAME, LAST_NAME, SEX, AGE, INCOME )
                         values
                       ('john', 'poul', 'M', 30, 13000)");
$sth->execute() or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;

使用绑定值

在某些情况下，可能不会事先给出要输入的值。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。 Perl DBI模块使用问号代替实际值，然后在运行时通过execute()API传递实际值。以下是示例-

my $first_name="john";
my $last_name="poul";
my $sex="M";
my $income=13000;
my $age=30;
my $sth=$dbh->prepare("INSERT INTO TEST_TABLE
                        (FIRST_NAME, LAST_NAME, SEX, AGE, INCOME )
                          values
                        (?,?,?,?)");
$sth->execute($first_name,$last_name,$sex, $age, $income) 
          or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;

读取数据

my $sth=$dbh->prepare("SELECT FIRST_NAME, LAST_NAME
                        FROM TEST_TABLE 
                        WHERE AGE > 20");
$sth->execute() or die $DBI::errstr;
print "Number of rows found :" + $sth->rows;
while (my @row=$sth->fetchrow_array()) {
   my ($first_name, $last_name )=@row;
   print "First Name=$first_name, Last Name=$last_name\n";
}
$sth->finish();

使用绑定值

有时可能没有事先给出条件。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。 Perl DBI模块使用问号代替实际值，然后在运行时将实际值通过execute()API传递。以下是示例-

$age=20;
my $sth=$dbh->prepare("SELECT FIRST_NAME, LAST_NAME
                        FROM TEST_TABLE
                        WHERE AGE > ?");
$sth->execute( $age ) or die $DBI::errstr;
print "Number of rows found :" + $sth->rows;
while (my @row=$sth->fetchrow_array()) {
   my ($first_name, $last_name )=@row;
   print "First Name=$first_name, Last Name=$last_name\n";
}
$sth->finish();

更新数据

my $sth=$dbh->prepare("UPDATE TEST_TABLE
                        SET   AGE=AGE + 1 
                        WHERE SEX='M'");
$sth->execute() or die $DBI::errstr;
print "Number of rows updated :" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;

使用绑定值

有时可能没有事先给出条件。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。 Perl DBI模块使用问号代替实际值，然后在运行时将实际值通过execute()()API传递。以下是示例-

$sex='M';
my $sth=$dbh->prepare("UPDATE TEST_TABLE
                        SET   AGE=AGE + 1
                        WHERE SEX=?");
$sth->execute('$sex') or die $DBI::errstr;
print "Number of rows updated :" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;

在某些情况下，您想设置一个值，该值不会事先提供，因此可以按以下方式使用绑定值。在此示例中，所有男性的收入将设置为10000。

$sex='M';
$income=10000;
my $sth=$dbh->prepare("UPDATE TEST_TABLE
                        SET   INCOME=?
                        WHERE SEX=?");
$sth->execute( $income, '$sex') or die $DBI::errstr;
print "Number of rows updated :" + $sth->rows;
$sth->finish();

删除数据

要从数据库中删除某些记录时，需要执行DELETE操作。以下是从TEST_TABLE删除AGE等于30的所有记录的过程。此操作将执行以下步骤。

$age=30;
my $sth=$dbh->prepare("DELETE FROM TEST_TABLE
                         WHERE AGE=?");
$sth->execute( $age ) or die $DBI::errstr;
print "Number of rows deleted :" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;

使用do语句

如果您正在执行UPDATE，INSERT或DELETE，则没有从数据库返回的数据，因此执行此操作有捷径。您可以使用 do 语句执行以下任何命令。

$dbh->do('DELETE FROM TEST_TABLE WHERE age =30');

如果成功，则返回true值；如果失败，则返回false值。 实际上，如果成功，它将返回受影响的行数。 在该示例中，它将返回实际删除的行数

提交事务

提交是向数据库发出commit信号以完成更改的操作，此操作完成后，任何更改都无法还原到其原始位置。

这是调用 commit API的简单示例。

$dbh->commit or die $dbh->errstr;

回滚事务

如果您对所有更改都不满意，或者在任何操作之间都遇到错误，则可以还原这些更改以使用回滚API。

这是调用 rollback API的简单示例。

$dbh->rollback or die $dbh->errstr;

开始事务

许多数据库支持事务。这意味着您可以进行一堆查询，这些查询将修改数据库，但实际上未进行任何更改。然后，最后发出特殊的SQL查询 COMMIT ，所有更改都同时进行。或者，您可以发出查询ROLLBACK，在这种情况下，所有更改都将被丢弃，数据库保持不变。

Perl DBI模块提供了 begin_work API，该API启用事务(通过关闭AutoCommit)，直到下一次调用提交或回滚为止。在下一次提交或回滚之后，将自动再次打开AutoCommit。

$rc =$dbh->begin_work  or die $dbh->errstr;

自动提交事务

如果您的交易很简单，则可以省去必须提交大量提交的麻烦。进行connect调用时，可以指定 AutoCommit选项，该选项将在每次成功查询后执行自动提交操作。这是它的样子-

my $dbh=DBI->connect($dsn, $userid, $password,
              {RaiseError => 1})
              or die $DBI::errstr;

此处AutoCommit可以取值为1或0，其中1表示AutoCommit打开，而0表示AutoCommit关闭。

自动错误处理

进行连接调用时，可以指定一个RaiseErrors选项，该选项将自动为您处理错误。 发生错误时，DBI将中止您的程序，而不返回错误代码。 如果只想在出错时中止程序，这将很方便。 这是它的样子-

my $dbh=DBI->connect($dsn, $userid, $password,
              {RaiseError => 1})
              or die $DBI::errstr;

这里RaiseError可以取值1或0。

断开数据库

要断开数据库连接，请使用disconnect API，如下所示-

$rc=$dbh->disconnect  or warn $dbh->errstr;

不幸的是，断开连接方法的事务行为是不确定的。某些数据库系统(如Oracle和Ingres)将自动提交任何未完成的更改，而其他数据库系统(如Informix)将回滚任何未完成的更改。不使用AutoCommit的应用程序应在调用断开连接之前显式调用commit或rollback。

使用NULL值

未定义的值或undef用于指示NULL值。您可以像使用非NULL值一样插入和更新NULL值的列。这些示例使用NULL值插入和更新列寿命-

$sth=$dbh->prepare(qq {
         INSERT INTO TEST_TABLE (FIRST_NAME, AGE) VALUES (?, ?)
       });
$sth->execute("Joe", undef);

这里的qq {}用于返回带引号的字符串以准备API。 但是，在WHERE子句中尝试使用NULL值时必须小心。 考虑-

SELECT FIRST_NAME FROM TEST_TABLE WHERE age=?

一个常见的问题是让代码片段处理一个在运行时可以定义或未定义(非NULL或NULL)的值。一种简单的技术是根据需要准备适当的语句，并将占位符替换为非NULL情况-

$sql_clause=defined $age? "age=?" : "age IS NULL";
$sth=$dbh->prepare(qq {
         SELECT FIRST_NAME FROM TEST_TABLE WHERE $sql_clause
       });
$sth->execute(defined $age ? $age : ());

其他常用函数

available_drivers

@ary=DBI->available_drivers;
@ary=DBI->available_drivers($quiet);

通过通过@INC中的目录搜索DBD::*模块，返回所有可用驱动程序的列表。默认情况下，如果某些驱动程序被较早目录中的其他同名驱动程序隐藏，则会发出警告。为$quiet传递真实值将禁止该警告。

installed_drivers

%drivers=DBI->installed_drivers();

返回所有已"安装"(加载)到当前进程的驱动程序的驱动程序名称和驱动程序句柄对的列表。驱动程序名称不包含" DBD ::"前缀。

data_sources

@ary=DBI->data_sources($driver);

返回可通过指定驱动程序使用的数据源(数据库)列表。如果$driver为空或undef，则使用DBI_DRIVER环境变量的值。

Quote引用

$sql=$dbh->quote($value);
$sql=$dbh->quote($value, $data_type);

通过转义包含在字符串中的任何特殊字符(如引号)并添加所需的外部引号类型，来对字符串文字进行引用以用作SQL语句中的文字值。

$sql=sprintf "SELECT foo FROM bar WHERE baz=%s",
                $dbh->quote("Don't");

对于大多数数据库类型，quote将返回'Do n't'(包括外部引号)。 quote()方法返回一个计算为所需字符串的SQL表达式是有效的。 如-

$quoted=$dbh->quote("one\ntwo\0three")

may produce results which will be equivalent to

CONCAT('one', CHAR(12), 'two', CHAR(0), 'three')

err 函数

$rv=$h->err;
or
$rv=$DBI::err
or
$rv=$h->err

从上次调用的驱动程序方法返回本机数据库引擎错误代码。 这等效于$DBI::err或$h-> err。

errstr 函数

$str=$h->errstr;
or
$str=$DBI::errstr
or
$str=$h->errstr

从最后一个调用的DBI方法返回本机数据库错误消息。  这等效于$DBI::errstr或$h-> errstr。

rows 函数

$rv=$h->rows;
or
$rv=$DBI::rows

这将返回受先前SQL语句影响的行数，并等效于$DBI::rows。

trace 函数

$h->trace($trace_settings);

DBI具有一种非常有用的功能，可以生成正在执行的操作的运行时跟踪信息，这在尝试跟踪DBI程序中的奇怪问题时可以节省大量时间。 您可以使用不同的值来设置跟踪级别。 这些值在0到4之间变化。值0表示禁用跟踪，值4表示生成完整跟踪。

参考链接

https://www.learnfk.com/perl/perl-database-access.html

标签：DBI,dbh,教程,die,sth,无涯,Perl,errstr,my
From： https://blog.51cto.com/u_14033984/6960766

相关文章

  • 对拍模板使用教程
    对拍模板(Poweredby@tianbiandeshenghuo11)本模板基于CC0-1.0知识共享协议开源。模板下载地址：Link宣传：TBSHOJ注意，当前服务器即将到期。我们将会在不久后更新服务器。届时该网址将会失效。为您造成的不便，敬请谅解。模板使用教程：在下发模板中有几个文件。sol.cpp是暴......
  • Python如何开发桌面应用程序？Python基础教程，第十三讲，图形界面
    当使用桌面应用程序的时候，有没有那么一瞬间，想学习一下桌面应用程序开发？行业内专业的桌面应用程序开发一般是C++,C#来做，Java开发的也有，但是比较少。本节课会介绍Python的GUI（图形用户界面）编程，用Python也可以写出漂亮的桌面程序，建议此次课程大家稍作了解不要浪费太多时间，因为没有哪家......
  • "No appenders found for logger" and "Please configure log4j properly"
    WhydoIseeawarningabout"Noappendersfoundforlogger"and"Pleaseconfigurelog4jproperly"?Thisoccurswhenthedefaultconfigurationfileslog4j.propertiesandlog4j.xmlcannotbefoundandtheapplicationperformsnoexplici......
  • Java 诊断工具 Arthas 教程学习笔记
    Java诊断工具Arthas教程学习笔记 Java诊断利器Arthas，是阿里的一款开源工具。Github-alibaba/arthas 上可以看到它的介绍。了解它，主要是最近对分析Java错误堆栈比较感兴趣，机缘巧合看到了它。本文记录的内容，就是基于它官网的文档摘抄的，涉及的截图可能由于篇幅有限，不是......
  • python教程 入门学习笔记 第6天 数据类型转换 字符串转换成数值 数值之间互转 其它类
    4、数据类型转换1）字符串转换成数值：int()-----------将值转换成整数float()-----------将值转换成小数str()-----------将值转换成字符串bool()-----------将值转换成布尔值例如：int()将值转换成整数s1="188"#字符串ns1=int(s1)#转换成整型数值print(ns1+8)#打印数......
  • 【Axure 教程】动态面板
    【动态面板】是Axure中另外一个神级的元件，它的江湖地位可以说跟【中继器】不相上下，【动态面板】提供了简单的配置，却可以实现非常丰富的效果，在实际设计中应用非常广泛。对于刚入门的产品经理来说，学习【动态面板】要比学习【中继器】容易得多，基本很快就能上手，但是很多人学习完之......
  • Windows搭建ELK教程
    ELK由ElasticSearch（ES）、Logstash和Kiabana三个开源工具组成 1首先下载如下：分别去https://www.elastic.co/downloads/下载上面三个windows的安装包，以为Logstash依赖ES服务，Kibana依赖Logstash和ES，所以安装和启动顺序分别为：ES->Logstash->Kibana  2安装配......
  • 无涯教程-Perl - 格式化
    Perl使用称为“formats”的模板来输出内容。要使用Perl的格式函数，必须先定义一种格式，然后才能使用该格式写入格式化的数据。定义格式以下是定义Perl格式的语法-formatFormatName=fieldlinevalue_one,value_two,value_threefieldlinevalue_one,value_two.这里的For......
  • Typecho建站：腾讯云轻量应用服务器搭建博客网站教程
    腾讯云轻量应用服务器自带Typecho应用模板镜像，腾讯云提供的Typecho模板镜像是基于CentOS7.664位操作系统，并已预置Nginx、PHP、MariaDB软件程序，使用Typecho应用模板可以快速搭建博客、企业官网、电商及论坛等各类网站。腾讯云服务器网分享使用腾讯云轻量应用服务器Typecho应用模板......
  • MySQL Workbench的使用教程
    MySQLWorkbench 是MySQLAB最近释放的可视数据库设计工具。这个工具是设计MySQL数据库的专用工具。MySQLWorkbench拥有很多的功能和特性；这篇由DjoniDarmawikarta 写的文章通过一个示例展现了其中的一些。我们将针对一个订单系统建立一个物理数据模型，这里的订单系统可以......

赞助商

阅读排行

网站主页关于我们联系我们网站地图

本网站内容转载自其他媒体，侵权联系[admin##ips99.com]。

Copyright © 2020-2023 IPS99 版权所有 IPS99