位置: 编程技术 - 正文

Perl Mysql数据库操作实现代码(perl-dbd-mysql是什么)

编辑:rootadmin
一. 安装DBI模块 步骤1: 从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件: Readme DBI.ppd DBI.tar.gz 步骤2: 在DOS窗口下,temp目录中运行下面的DOS命令: ppm install DBI.ppd 如果提示无效命令,可在perl/bin目录下运行 二. 安装DBD-Mysql模块 从软件下载中下载DBD-Mysql.zip,安装方法同一. 三. 准备数据库 启动mysql,首先创建一个数据库mydata,然后创建一个表address mysql> create database mydata; Query OK, 1 row affected (0. sec) mysql> use mydata; Database changed mysql> create table address ( -> id int(5) not null, -> name varchar() not null, -> email varchar() not null, -> telephone int() null); Query OK, 0 rows affected (0. sec) 输入些数据: mysql> insert into address values ( -> 1,'Nighthawk','nighthawk@.net',); Query OK, 1 row affected (0. sec) 四. 下面用perl程序来插入若干记录并做查询. use DBI; #连接数据库mydata my $dbh = DBI->connect('DBI:mysql:mydata') or die "无法连接数据库: " . DBI->errstr; print "插入若干记录n"; my $sth = $dbh->prepare(q{ INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?) }) }); print "输入记录,回车结束:"; while ($inputdata =<>) { chop $inputdata; last unless($inputdata); my ($id, $name,$email, $tel) = split( /,/, $inputdata); $sth->execute($id, $name, $email,$tel) } # $dbh->commit; print "下面根据输入的名字打印出EMAIL地址和电话n"; my $sth = $dbh->prepare('SELECT * FROM address WHERE name=?') or die $dbh->errstr; print "请输入姓名,回车结束:"; while ($inputname =<>) { my @data; chomp $inputname; last unless($inputname); $sth->execute($inputname) or die "错误: " . $sth->errstr; while (@data = $sth->fetchrow_array()) { print "Email:$data[2]t Telephone:$data[3]n"; } } #断开连接 $dbh->disconnect; Nighthawk

推荐整理分享Perl Mysql数据库操作实现代码(perl-dbd-mysql是什么),希望有所帮助,仅作参考,欢迎阅读内容。

Perl Mysql数据库操作实现代码(perl-dbd-mysql是什么)

文章相关热门搜索词:mysql pri,perl连接数据库,percona mysql,perl-dbd-mysql,percona mysql,perl-dbd-mysql,perl-dbd-mysql,perl-dbd-mysql,内容如对您有帮助,希望把文章链接给更多的朋友!

PERL 正则表达式详细说明 PERL里正则表达式的简介一、简介二、匹配操作符三、模式中的特殊字符1、字符+2、字符[]和[^]3、字符*和?4、转义字符5、匹配任意字母或数字6、锚模式7

python 获取命令行参数 函数 importsysprintsys.argvprintlen(sys.argv)#参数个数printsys.argv[1]#第一个参数printsys.argv[2]

Perl5 OOP学习笔记第1/2页 在学习了Perl的基本语法之后,学习Perl的OOP,略有心得。不知道Perl各个版本之间OOP是否有区别,但是我是学习的Perl5,所以在标题上将版本号也写出来了

标签: perl-dbd-mysql是什么

本文链接地址:https://www.jiuchutong.com/biancheng/372444.html 转载请保留说明!

上一篇:Perl ASCII 字符判断(perl判断字符串相等)

下一篇:PERL 正则表达式详细说明(perl 正则表达式 保留原有字符)

  • 政府农民合作社架构
  • 企业所得税季度申报
  • 分期付款购买商品的会计分录
  • 固定资产的原值是含税价?
  • 建筑企业小规模纳税人升为一般纳税人条件
  • 小企业以前年度损益调整科目取消了吗
  • 房租收入如何缴税?
  • 一个工程项目多次收款怎样预交增值税
  • 资产的名义已使用年限与实际已使用年限的区别与联系
  • 法人转账到开户行的会计分录怎么做?
  • 母公司借款给子公司作为投资
  • 个体户生产经营所得税税率表
  • 过了征期还能报税吗
  • 案例分析关于拟建科学馆的请示报告
  • 哪些开普通发票
  • 年薪超过12万交多少税
  • 一般纳税人减免税款的会计分录
  • 建筑业预交增值税最新政策
  • 过桥资金法律规定
  • i7笔记本cpu性能天梯图
  • 如何修改系统时间为12/24小时制
  • 其他应付款无法支付的账务处理方法
  • 硬件设施不完备
  • php session_id
  • 其它业务收入是什么科目
  • 固定资产增值税税率
  • iframe frame
  • wordpress.org
  • 身份证php编写
  • 增值税纳税申报表在哪里打印
  • 前端工程搭建
  • java多线程线程数控制在多少
  • ai图片生成矢量图
  • css加小手
  • vue3中使用gis地图
  • 年度总产值等于营业收入
  • css怎么让文字垂直居中显示
  • 以无形资产向外单位投资会引起会计要素
  • 分公司和总公司的税务和财务关系
  • 金蝶财务软件系统要求
  • 基建期业务招待会议记录
  • 外企研发中心
  • 现金流量表存货增加额怎么算
  • 个人向企业借贷违法吗
  • 浅谈一下新冠的好处
  • 期权费的合理范围计算
  • 代开发票含税价怎么核算为不含税发票?
  • 出口货物免税的税种包括
  • 应交增值税进项税额转出账务处理
  • 土地测绘费计入开发间接费?
  • 实收资本印花税最新规定
  • 收到银行季度结转怎么做
  • 购买汽车后,需要缴纳的税种有哪些
  • 专用发票怎么网上申领
  • 哪些人必须办理纳税登记
  • 总账的建立分为哪几个步骤
  • python中的django
  • mysql进阶之路
  • windows server 2008图片文件无法显示缩略图的解决方法
  • win7鼠标自己移动
  • win8.1补丁包
  • win7如何开启蓝牙功能
  • win8怎么改系统
  • window8任务栏消失了怎么办
  • windows操作大全
  • unity发布exe
  • Particle system study section 1
  • 关于我和鬼变成家人的那件事
  • opengl版本太低怎么升级
  • 用git打更新包的代码
  • div +css
  • img引入图片
  • Cocos2dx 疯狂跑酷(CrazyRun)游戏项目解析
  • 2024年全年计划
  • 批处理技术有哪些
  • js特殊字符有哪些
  • shell脚本 -ne 0
  • ShareSdk实现第三方分享功能
  • 汽车商业险退保还有手续费吗
  • 包头市到青山区多少公里
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设