位置: 编程技术 - 正文

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

  • 划拨土地使用权出租
  • 消费税征税范围是什么口诀
  • 施工单位临时设施搭建费属于
  • 兼职合同工资发放
  • 房贷利息抵个税细则 两套房
  • 建筑业预缴税款是什么意思
  • 电商平台流量费用怎么算
  • 可抵扣增值税的发票
  • 刷信用卡的手续费去哪了
  • 客户已经抵扣的发票怎么开负数发票给对方
  • 互联网合同范本
  • 为员工购买的意外保险账务处理
  • 饭店取得的烟酒是什么
  • 出差补贴没有发票
  • 事业单位固定资产报废的账务处理
  • 外贸企业进项税额
  • 人工成本全额扣除吗
  • 汽车零部件的成本核算
  • 个人二手车转让协议书免费
  • php中变量有哪些基本数据类型?
  • 食品类发票入账属于什么科目
  • 长期借款科目的期末余额
  • 金融工具减值会影响什么
  • 非货币性资产交换
  • 员工报销的费用
  • vue数据更新会触发什么生命周期
  • nodejs安装教程
  • YII2.0之Activeform表单组件用法实例
  • html转xhtml
  • 税控减免怎么做账
  • Vue3 中 createWebHistory 和 createWebHashHistory 的区别
  • 同城票据清算和清算资金往来的区别
  • 行政单位基建账如何并入大账
  • idea2021版本创建项目
  • vue 登陆
  • 命令who的含义
  • 2019年新会计制度改革
  • 帝国cms安装教程
  • 个税专项附加扣除金额
  • 营业外支出科目代码
  • javascript基础笔记
  • 深圳增值税普通发票和专用发票的区别
  • 异常凭证进项税额转出怎么申报
  • 公司没有收入怎么办
  • 小规模纳税人征收率5%的情况
  • 研发费用加计扣除的条件
  • 个税手续费返还比例
  • 应交税费的进项和销项是什么意思
  • 销售租赁服务税率
  • 个人挂靠公司承接工程如何做会计处理?
  • 3%税率专用发票
  • 出售未计提完折旧的固定资产需要折扣吗
  • 应收应付对冲的分录
  • 小规模纳税人所得税优惠政策2023
  • 加盟店直营店什么意思
  • 委托设置什么意思
  • mysql8 jdbc连接
  • sql server数据库使用
  • services.exe修改注册表
  • windows server 2008 r2有哪些特点
  • windows资源管理器
  • win8系统应用软件颜色不正常怎么办
  • 一岁的宝宝可以喝枸杞水吗
  • windows102021年更新
  • win7电脑dpi怎么设置800
  • win102020h2怎么样
  • 日历显示不全
  • win10预览版选哪个
  • cocos2dx开发鸿蒙app
  • android源码分析实录
  • js原始值有哪些
  • js怎么操作css
  • JavaScript html5 canvas绘制时钟效果
  • node.js基础入门
  • python自动化运维教程
  • JavaScript快速排序
  • jquery图片轮播代码
  • 支付境外服务费代扣代缴增值税 会计凭证
  • 密云到顺义区医院公交路线
  • 济南高新区工商局政务大厅电话
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设