返回首页

简介
本文解释如何执行你的数据库通过Perl的操作,使用DBI模块。这是假设你有关于Perl / CGI和SQL的基本知识。我们将进行一个简单的表,就可以执行基本的SQL操作。评论
像所有的Perl代码,这个代码也是言自明。如果您需要的详细信息,请不要犹豫,使用的文章论坛。一个例子
创建一个表的/ usr /本地/ BIN / perl中。使用DBI;用户名$ = ''; $密码= '';元数据库= ''; $ HOSTNAME = '';$ DBH = DBI ->连接("DBI:mysql的数据库= $数据库"; "= $ HOSTNAME的主机,端口= 3306",为用户名,密码);$ SQL ="创建表的用户(ID INTEGER PRIMARY KEY"。 "AUTO_INCREMENT,用户名文本不空"。 "不为null的密码文本,电子邮件文本不为空)";美元CreateTable = $ DBH ->($ SQL);打印"内容类型:文本/ html \ N \ N \ N";如果(美元CreateTable){打印"成功";}其他{打印"失败
$ DBI::errstr";}例二
插入一条记录的/ usr /本地/ BIN / perl中。使用DBI;用户名$ = ''; $密码= '';元数据库= ''; $ HOSTNAME = '';$ DBH = DBI ->连接("DBI:mysql的数据库= $数据库"; "= $ HOSTNAME的主机,端口= 3306",为用户名,密码);$ SQL ="插入到用户(用户名,密码,电子邮件)"。 "值('lexxwern','密码','电子邮件@主机")";$ InsertRecord = $ DBH ->($ SQL);打印"内容类型:文本/ html \ N \ N \ N";($ InsertRecord){打印"成功";}其他{打印"失败
$ DBI::errstr";}示例3
更新的/ usr /本地/ BIN / perl的纪录。使用DBI;用户名$ = ''; $密码= '';元数据库= ''; $ HOSTNAME = '';$ DBH = DBI ->连接("DBI:mysql的数据库= $数据库"; "= $ HOSTNAME的主机,端口= 3306",为用户名,密码);$ SQL ="更新用户设置电子邮件"。 ""lexxwern@yahoo.com"其中,username ='lexxwern";$ UpdateRecord = $ DBH ->($ SQL);打印"内容类型:文本/ html \ N \ N \ N";($ UpdateRecord){打印"成功";}其他{打印"失败
$ DBI::errstr";}例四
删除的/ usr /本地/ BIN / perl的纪录。使用DBI;用户名$ = ''; $密码= '';元数据库= ''; $ HOSTNAME = '';$ DBH = DBI ->连接("DBI:mysql的数据库= $数据库"; "= $ HOSTNAME的主机,端口= 3306",为用户名,密码);$的SQL ="删除用户ID = 1";$ DeleteRecord = $ DBH ->($ SQL);打印"内容类型:文本/ html \ N \ N \ N";($ DeleteRecord){打印"成功";}其他{打印"失败
$ DBI::errstr";}例如五
查看所有记录。#!的/ usr /本地/ BIN / perl的打印"内容类型:文本/ html \ N \ N";使用DBI;用户名$ = ''; $密码= '';元数据库= ''; $ HOSTNAME = '';$ DBH = DBI ->连接("DBI:mysql的数据库= $数据库"; "= $ HOSTNAME的主机,端口= 3306",为用户名,密码);$ SQL ="从用户的选择*";$选择= $ DBH ->准备($ SQL);选择 - >执行();(行$ row = $选择 - > fetchrow_hashref){ 打印"$行> {用户名}
$行> {电子邮件}";}结论
希望这些例子可以给你一个整齐的DBI模块的功能预览。将进一步帮助。祝你好运!

回答

评论会员:马修梅里特 时间:2011/11/29
嗨,
我需要知道如何连接到一个Oracle数据库在Perl中,
我应该使用什么驱动程序和任何其他的信息是相对
需要的一项十分紧迫的答复plzzzz。
感谢。
评论会员:FooOfTheBar 时间:2011/11/29
我觉得您的代码片段是好的,但如何在世界上是这认为的高级Perl?需要知道...