位置: 编程技术 - 正文

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

  • 累计扣除税额
  • 收到上年度所得税发票
  • 审计助理是做什么工作的
  • 计提印花税会计分录最新
  • 社保可以抵扣什么税
  • 生产企业的基础设施是指
  • 权益法下被投资企业净资产增加
  • 公允价值变动损益属于当期损益吗
  • 公司租车怎么抵税
  • 并购重组资产怎么算
  • 计提费用怎么入账
  • 以前多计提了应付职工薪酬怎么平账?
  • 资产负债表和利润表和现金流量表的关系
  • 出口退税要交企业所得吗
  • 湿租增值税税率多少
  • 健身房会计一般做什么
  • 积分返现活动
  • 国内企业给国外企业开发票
  • uefi启动u盘安装win10系统的详细流程
  • 华为如何定时关机
  • 怎么看iPhone电池温度
  • php中session和cookie的区别说法错误的是
  • 进价金额核算法的账务处理特点
  • vue onshow
  • php时间计算
  • 子公司使用母公司授信
  • php做登录界面连接数据库
  • php获取数据
  • 出口已使用的设备退税还是免税
  • 制造业企业预提短期借款利息
  • 生产成本结转怎么登账
  • 非同级财政拨款收入属于什么科目
  • php统计中文长度
  • php图片上传代码详解
  • 研发和技术服务税率3%
  • php学生管理系统设计报告
  • 2023年网络安全专题教育
  • 前后端分离项目部署到服务器
  • php实现链式操作实验报告
  • 出口退税备案是代理的需要主办会计身份证复印件吗
  • 无形资产商标权摊销
  • 网上报税优点与缺点
  • python中strftime用法
  • 国外公司给国内个人汇款
  • 长期待摊费用账务处理包括哪两部分
  • sqlserver控制台
  • 计提固定资产折旧是什么意思
  • 原材料的对应账户有哪些
  • 长期股权投资转让收益需要交增值税吗
  • 资产负债表多久编制一次
  • 小微企业社保代缴
  • 资本公积金转增股本会计处理
  • 扣缴个人所得税报告表
  • 小规模纳税人系统查询
  • 结转损益不平是什么原因造成的
  • 政府征税再进行补贴对消费者福利的影响
  • 营业外支出处置固定资产损失是坏账
  • 软件测试费用明细
  • 税控盘和金税盘一样吗
  • 建账时都要建哪些科目
  • 其他应收款核算什么
  • 统计会计主要做什么
  • 创建小企业
  • freebsd使用手册
  • firefox干啥的
  • centos简介
  • linux安装yum命令步骤
  • apache80端口被占用的解决方法
  • 如何自定义控件
  • android点击图片跳转页面
  • css如何实现
  • vue两个花括号
  • 详解金球奖之争
  • 如何在脚本中调字体
  • unity3d怎么用
  • javascript视频教程推荐
  • 网页js调试
  • jquery基本操作
  • 给派出所写情况说明房屋情况怎么写啊
  • 行政事业单位自办食堂规定
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设