当前位置:首页 > 程序设计 >

Perl DBI手册

PDF超清版

时间:2020-10-14 10:48:54大小:798 KB已被860人关注 资源下载

Perl开发手册指南
Perl开发手册指南

可移植的DBI方法:

connect 建立到一个数据库服务器的连接
disconnect 断开数据库服务器的连接
prepare 准备执行一个SQL语句
execute 执行准备好的语句
do 准备并执行一个SQL语句
quote 加引号于要插入的字符串或BLOB值
fetchrow_array 作为一个字段数组取出下一行
fetchrow_arrayref 作为一个字段的引用数组取出下一行
fetchrow_hashref 作为一个哈希表的引用取出下一行
fetchall_arrayref 作为一个字段数组取出所有数据
finish 完成一条语句并且让系统释放资源
rows 返回受影响的行数
data_sources 返回可在localhost上得到的数据库的数组
ChopBlanks 控制fetchrow_*方法是否剥去空格
NUM_OF_PARAMS 在准备的语句中的占位(placeholder-参数)的数目
NULLABLE 其列可以是NULL
trace 执行调试跟踪

已被549人点赞
Perl DBI 示例图
Perl DBI 示例图

Perl DBI 示例图

已被432人点赞
Perl DBI使用实例
Perl DBI使用实例

#!/usr/bin/perl
 
#set module
use DBI;
 
#scanf the mysqluser
print "请输入mysql帐号:\n";
chomp($mysql_n=<STDIN>);
print "请输入mysql密码:\n";
chomp($mysql_p=<STDIN>);
print "请输入需要连接的数据库:\n";
chomp($mysql_d=<STDIN>);
 
#connect mysql
my $in=DBI->connect("DBI:mysql:database=$mysql_d;host=localhost","$mysql_n","$mysql_p",{'RaiseError'=>1});
#select databases;
my $select=$in->prepare("select * from people");
$select->execute();
 
#print the list
while(my $list=$select->fetchrow_hashref()){
  print "$list->{'username'}\t";
  print "$list->{'password'}\t";
  print "$list->{'number'}\t";
  print "$list->{'year'}\t";
}
print "\n";
#close mysql
$in->disconnect();

 

已被780人点赞
下载地址:百度网盘下载

Copyright 2018-2020 www.xz577.com 码农之家

版权投诉 / 书籍推广 / 赞助:520161757@qq.com