设为首页收藏本站

LinuxTone | 运维专家网论坛 - 最棒的Linux运维与开源架构技术交流社区!

 找回密码
 注册

QQ登录

只需一步,快速开始

#公告#抱歉,网站将关闭,不再开放。由于PC时代已远逝 。在这个后移动互联网时代,我们继续携手前行,保持对技术的热情。共同构建linuxtone知识星球欢迎加入,一起讨论技术、招聘人才、分享资源。请新老linuxtone人 扫码移步到 知识星球:linuxtone

学习是一种信仰!分享是一种快乐!能力= 心态 * 沟通 * 知识 (你的每一天需要正能量!)

 网站的发展需要你贡献一份力量!希望你能每天坚持看贴1小时,并回答网友的问题!祝你在浏览论坛的过程中取得进步!谢谢!linuxtone加油!大家加油! 友情提示: 你今天学习了吗?你今天进步了吗?少一点抱怨!多一点进步!Life is short ! Why not linuxtone ?  

网站的发展、感谢每位坛友的努力!

查看: 4138|回复: 2

简单的perl语言对数据库(mysql)的操作 [复制链接]

Rank: 8Rank: 8

签到
277
注册时间
2010-10-13
最后登录
2018-1-31
在线时间
250 小时
阅读权限
90
积分
27000
帖子
99
主题
8
精华
0
UID
10602
发表于 2010-10-25 17:39:45 |显示全部楼层
想利用perl语言操作数据库,这里简单使用perl语言进行插入数据并且删除数据库记录
有数据库library,里面有表members
首先进入数据库

sudo -u root -p
密码:******

2.创建数据库library

create database library;

3.创建表members

create table members (member_id int(11) NOT NULL auto_increment ,fname varchar(20) NOT NULL,lname varchar(20) NOT NULL,tel varchar(15) NOT NULL ,email varchar(50) NOT NULL,PRIMARY KEY (member_id));

4.插入数据

insert into members (1,'ceagle','jiangfeng','123456789','ceaglechina@gmail.com');



insert into members (1,'hu','xuelin','123456789','ceaglechina@gmail.com');

...
5.查看数据

select * from members;


+-----------+--------+-----------+-----------+-----------------------+
| member_id | fname   | lname        | tel            | email                 |
+-----------+--------+-----------+-----------+-----------------------+
|         1         | ceagle | jiangfeng | 123456789 | ceaglechina@gmail.com |
|         2         | hu        | xuelin       | 123456789 | ceaglechina@gmail.com |
+-----------+--------+-----------+-----------+-----------------------+
2 rows in set (0.00 sec)


6编写perl语言访问数据库

#!/usr/bin/perl -w

#The script is used to connect mysql and show table members of the
#database library

use DBI();
#connect

my $dbh = DBI->connect("DBI:mysql:database=library;host=localhost","root","ceagle",
        {'RaiseError'=>1,'AutoCommit'=>0});


#iterate through resultset

my $sth = $dbh->prepare("SELECT * from members");
$sth->execute();
print "member_id\tfname\tlname\ttel\t\temail","\n";
while (my $ref = $sth->fetchrow_hashref()) {
  print "$ref->{'member_id'}\t\t$ref->{'fname'}\t$ref->{'lname'}\t$ref->{'tel'}\t$ref->{'email'}\n";
}

if ($@){
    print "Transaction aborted@";
    $dbh->rollback();
}
#clean up
$sth->finish();
$dbh->disconnect();


此脚本可以访问library下的members表

7修改脚本使其能够向数据库插入数据并且将插入的数据删除


#!/usr/bin/perl -w

#The script is used to connect mysql and show table members of the
#database library

use DBI();
#connect

my $dbh = DBI->connect("DBI:mysql:database=library;host=localhost","root","ceagle",
        {'RaiseError'=>1,'AutoCommit'=>0});
#execute query

#my $sth = $dbh->prepare("SELECT * from members");

#$sth->execute();

eval
{
    #insert data to members

        $dbh->do("insert into members values (NULL,'cao','jiang','55256262','ceaglechina\@gmail.com')");
        $dbh->commit();

};
#iterate through resultset

my $sth = $dbh->prepare("SELECT * from members");
$sth->execute();
print "member_id\tfname\tlname\ttel\t\temail","\n";
while (my $ref = $sth->fetchrow_hashref()) {
  print "$ref->{'member_id'}\t\t$ref->{'fname'}\t$ref->{'lname'}\t$ref->{'tel'}\t$ref->{'email'}\n";
}

#Delete the data

eval
{
    $dbh->do("delete from members where fname = 'cao' ");
    $dbh->commit();

};
if ($@){
    print "Transaction aborted:$@";
    $dbh->rollback();
}
#clean up

$sth->finish();
$dbh->disconnect();


好了,到此简单的数据库操作就完成了

Rank: 6Rank: 6

注册时间
2008-6-13
最后登录
2014-8-6
在线时间
219 小时
阅读权限
70
积分
8688
帖子
971
主题
181
精华
0
UID
74

LT粉丝

发表于 2010-10-25 20:10:23 |显示全部楼层
学习了,学习PERL就是这样一步步开始!

我也推荐一些范例:
http://www.tizag.com/perlT/perlmysqlquery.php
http://www.retards.org/projects/mysql/
工作太忙,不上QQ/MSN,但每天会上LinuxTone学习!

使用道具 举报

Rank: 8Rank: 8

注册时间
2010-10-13
最后登录
2018-1-31
在线时间
250 小时
阅读权限
90
积分
27000
帖子
99
主题
8
精华
0
UID
10602
发表于 2010-10-26 08:05:06 |显示全部楼层
回复 nginxman 的帖子

呵呵,链接处的资料很好,学习ing……

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

IT运维专家网感谢您的支持

合作联系: QQ:67888954/MSN:cnseek@msn.com/mail:netseek@linuxtone.org

Archiver|手机版|感谢所有关心和支持过LinuxTone的朋友们 转载本站内容请注明原作者名及出处 ( 京ICP备08103151 )   |

GMT+8, 2019-6-27 08:46 , Processed in 0.028315 second(s), 14 queries , Apc On.

Powered by Discuz! X2 Licensed

© 2001-2011 Comsenz Inc.

回顶部