位置: 编程技术 - 正文

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

  • 预收账款的税费怎么处理
  • 金税盘技术维护费
  • 房产税出现往期数据怎么办
  • 完全成本法税前利润计算例题
  • 公司老板有钱吗
  • 销售原材料给供应商
  • 研发费用加计扣除是什么意思啊
  • 残保金计入管理费用还是营业税金及附加
  • 土地增值税扣除项目金额怎么算
  • 利息发票怎么算
  • 2020小规模纳税人增值税税率
  • 资产负债表月报期末余额怎么填
  • 无形资产按几年摊
  • 研发费用资本化支出
  • 零息债券支付利息吗
  • 个税专项附加扣除具体怎么操作
  • 技术转让收入纳税调整
  • 有限合伙企业中有限合伙人承担责任的方式为
  • 非广告公司可以开广告费发票吗?
  • 预收电费结转成本怎么办
  • 退回以前年度费用怎么做帐
  • 什么时候需要交个人所得税
  • 文化事业建设费的征收范围
  • 城建税教育费附加税率怎么计算
  • 特殊业务分录
  • 2017年7月1日开始实施的税法新规
  • 固定资产进项票能抵扣吗
  • 出口退税企业的税负率怎么算?
  • 安装服务需要预缴税款吗
  • 差旅费补助计入什么科目
  • vue3 provide inject
  • 预提费用年终有余额怎么办
  • linux怎么下载安装腾讯Tim?
  • 关联企业之间销售货物
  • vue解决数据量过大的问题
  • 会计结账时账户余额为零
  • 海外供应商贸易平台
  • Xpath元素定位之同级节点,父节点,子节点
  • 未分配利润为负的原因
  • 选项式api和组合式api哪个好
  • 计算机视角技术
  • jsoup js
  • 高通芯片开发
  • chronyc配置
  • 公司股东利润分配方案范本
  • 纳税人识别号的英文缩写
  • 交所得税怎么记账
  • 用友重新安装步骤
  • 企业不交所得税的情况
  • ibm db2认证
  • 销售额多少需要纳税
  • 企业所得税计提的准备金可以扣除吗
  • 关于工程施工的法律法规
  • 失控发票未付款什么意思
  • 制造费用怎么写
  • 发票入账抵扣什么意思
  • 所得税需要转本吗
  • 内退文件2018
  • 给投资人的利润属于什么科目
  • 小微企业如何自己开发票
  • MySQL 4.1/5.0/5.1/5.5/5.6各版本的主要区别整理
  • flashplayer不能正常运行
  • VM虚拟机安装Harmonyos4
  • windows域环境搭建
  • mac命令行窗口怎么打开
  • linux解压操作
  • linux 11
  • linux 翻译
  • js抓取网页内容
  • Android Bound Service(二) ----- Using AIDL
  • angular中ui calendar的一些使用心得(推荐)
  • android基础知识总结
  • 深入理解javascript特性
  • javascript语言基础
  • jquery validator
  • psi python
  • 省市区json
  • javascript面向对象精要pdf
  • 开增值税专用发票需要注意什么
  • 税务总局广西
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设