位置: 编程技术 - 正文

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 正则表达式 保留原有字符)

  • 增值税发票选择确认平台打不开怎么办?
  • 外币账户单位基本情况表
  • 广告设计要交文科生吗
  • 一年房租正常摊销多少
  • 费用怎么分析
  • 工程收入开票
  • 小规模和纳税人一般怎么选择
  • 单位劳务派遣的比例
  • 预付款核销会计分录
  • 发票分开开票
  • 电子发票冲红还是作废
  • 租赁收入无发票怎么做账
  • 终止合同后原合同怎么处理
  • 企业支付的工伤赔偿需要什么材料
  • 营改增之后有了利息收入核算税费?
  • 个体户进货需要成本票吗
  • 小规模纳税人月超10万季度不超30万
  • 借款合同印花税纳税期限
  • 开票时税收编码必须和进项一致吗
  • 资本金结汇资金用途
  • 待抵扣进项税 待认证进项税
  • 委托加工物资什么意思
  • 应收预收账款属于什么科目
  • 注册资本与利息的税前扣除
  • 进料加工出口退税计算 计划分配率
  • 进口商品关税调整
  • win10开机无限werfault一直刷新
  • 如何在excel中自动筛选
  • 新装的电脑开机慢是什么原因
  • 暗格里的秘密电视剧彩蛋百度网盘
  • 工程结算如何做账
  • 长期贷款利息怎样计算
  • css 栅格
  • 计提工资时怎么做账
  • win7为什么还有人用
  • 公司收入没有进项税额
  • 超过两年的发票还可以查询吗
  • pqhelper.exe是什么进程 pqhelper进程查询
  • win7旗舰系统
  • 变动成本法计算营业利润
  • php框架实例
  • mac环境搭建
  • uniapp实战视频教程
  • 谁能代替你啊
  • 一文速学-XGBoost模型算法原理以及实现+Python项目实战
  • wordpress图片模板
  • 超过离线开票限定时间怎么办
  • 出口货物退货会退税吗
  • 外籍专家劳务费
  • 典当公司收到房款怎么办
  • 什么时间可以开发票
  • 食堂洗碗机操作规程
  • 漏税处罚
  • 学习笔记——Servlet
  • mysql8绿色版
  • 增量留抵税额退税的计算公式为
  • 现金流量表的主要项目
  • 微众银行的企业贷款好批吗
  • 可供出售债权投资
  • 职工福利费汇算清缴
  • 工会经费如何申请返还
  • 久期缺口计算公式解析
  • 备查账包括哪些
  • win8怎么没有我的电脑
  • windows vista(service pack1)
  • 快速释放剪贴蒙版快捷键
  • ubuntu系统安装教程详细
  • mac ios应用
  • “linux”
  • windows屏幕上有多个窗口时
  • 2016年微软股价
  • win7如何设置桌面背景图
  • unsupportedclassversion
  • jquery-easyui
  • linux .tar文件
  • shell脚本 -ne 0
  • 税务局开蔬菜普票需要几个点
  • 原木进项税率
  • 地税局网上报税
  • 地税服务费算什么科目
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设