位置: 编程技术 - 正文

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

  • 实收资本的账务处理是怎样的
  • 人工费用与制造成本区别
  • 哪些单位须执行国家政策
  • 金蝶美金账户怎么开
  • 税款所属期什么意思
  • 物流公司主营业务范围
  • 一般纳税人不开票收入怎么填增值税申报表
  • 企业会计核算基础
  • 贴现是融资业务吗
  • 简易征收应纳税额计算
  • 金税盘的进项发票怎么导出
  • 原材料采用实际成本法核算
  • 地税保险单位编号是什么
  • 暂估入库的材料需要做T型账户嘛?
  • 查验发票真伪新旧有哪些网站?
  • 7月3日事业单位
  • 人力资源顾问公司有什么岗位
  • 营改增后如何确认老项目营改增前收入
  • 总公司签合同发票可以给子公司吗
  • 税率变化应付账款怎么处理
  • 备用金发票冲抵
  • 环保税与排污费的关系
  • 公司自有房屋出租 没有从租计征房产税
  • 收到借出款利息会计分录
  • 发票未到先付款的账务处理
  • php循环语句
  • linux怎么打开makefile
  • sethook.exe - sethook进程是什么文件 有何作用
  • kernl32.dll
  • php输出流
  • 农村合作社免所得税吗
  • php内核剖析
  • 财务费用是一种期间费用,按期归集
  • 应缴纳的房产税计入什么科目
  • thinkphp框架入门
  • 原始凭证必须来源于外部吗
  • tf fans club
  • 电子税务局没有开票业务
  • 个人所得税大病医疗夫妻双方怎么扣除
  • 哪些企业适用于企业会计制度
  • 企业变更法人的原因怎么写
  • 一般整形医院的药在哪进货
  • 以前年度是什么意思
  • 生产成本科目期末怎么结转
  • 城建税的征收范围不包括农村
  • 房地产中介公司排名
  • 子公司向母公司交利润 需要纳税吗
  • 个体工商户不缴纳印花税吗
  • 总公司给分公司拨款属于什么
  • 资产减值损失年报怎么调整
  • 应交增值税为什么在借方
  • 其他公司归还借款分录
  • 公司视同销售产品确认收入分录?
  • 公摊水电费计入什么科目
  • 不动产进项税额转出
  • 飞机票没有发票只有行程单
  • 企业销售退回的论文
  • 半个固定资产如何折旧
  • 主营业务成本做多了怎么办
  • mysql缩印
  • 自定义winre
  • 如何在macbook中设置软件权限
  • blos是什么意思
  • macbook的dock栏怎么不见了
  • win10安装不了ie
  • Linux网络抓包工具
  • win7打开文件提示用户没有访问权限怎么办
  • iptables: Unknown error 4294967295问题解决方法
  • 框架常用注解
  • 批处理程序教程
  • JavaScript中的变量名不区分大小写
  • linux中tar命令
  • js获取对象key的方式有哪些
  • python爬虫爬取网页数据
  • android下载文件保存到本地
  • 如何彻底删除android
  • 总分机构在同一县城企业所得税需要预交吗
  • 江西省医保卡缴费
  • 山东地方税务局官网
  • 为什么我电脑登微信显示二维码失效
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设