位置: 编程技术 - 正文

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

  • 非居民纳税机构都包含哪些?
  • 不征税收入有哪些增值税
  • 增值税认证勾选平台
  • 提供劳务应收未收的款项
  • 工会账怎么做
  • 待摊费用属于企业的费用
  • 无形资产的出售的会计处理
  • 信用减值损失借贷方表示什么意思
  • 员工离职补偿需要计提吗
  • 商业承兑汇票风险大吗
  • 应交增值税为什么是销项减进项
  • 增值税普票跨月怎么冲红
  • 小规模纳税人代理记账一般多少钱
  • 不动产评估需要明确的基本事项包括哪些内容
  • 工业企业财务核算方法
  • 注册资本的印花税
  • 金融企业贷款损失税前扣除
  • 长期股权投资是什么科目
  • 简述资产的概念特征以及确认条件
  • 知道发票代码怎么查询发票号码
  • 不动产进项抵扣新政策2022
  • 贸易型企业怎么做账
  • 送积分怎么做账
  • 持有至到期投资和债权投资的区别
  • 收到租金税费怎么计算
  • 公司出售车辆
  • 如何回到一年前的方法
  • 销售商品全部退回
  • win10系统没有声卡驱动
  • php中字符串函数
  • 承租集体土地如何确权
  • 关联企业之间销售货物
  • 个人出租商用房个人所得税
  • 职工福利费用怎么入账
  • 政府会计制度应付职工薪酬账务处理
  • markdown语法是什么意思
  • 前端环境部署到服务器开发环境
  • 微服务springboot结构
  • 零申报企业所得税怎么申报
  • 一般纳税人普通发票做账
  • 固定资产清理净残值怎么处理
  • 冲减去年管理费怎么做分录
  • 企业收到投资者投入资金
  • 进口卷烟消费税定额税率
  • 应交税费借方是增加还是减少
  • 为什么生产成本不属于损益类科目
  • 现金日记账年结怎么做
  • 注册资金没显示
  • 返利开红字发票怎么做账
  • 预提费用处理
  • 辞退福利是入工资还是福利费
  • 季度的工会经费怎么算
  • 明细账示例图
  • mysql数据库如何使用
  • linux命令实现
  • truncate可以删除部分数据
  • ubuntu vnc远程
  • freebsd服务器搭建
  • cmd命令 cd
  • ubuntu rhythmbox乱码解决方法
  • linux查看所有硬件信息命令
  • windows8语言栏不见了
  • win8的系统
  • win8.1开始菜单怎么改成win7那样
  • perl调用系统命令
  • js跨域解决方案有哪些
  • node.js实战
  • css如何把图片重叠在一起
  • 简单阐述javascript的主要作用
  • linux shell脚本编程100例
  • mac如何配置pycharm
  • Node.js+Express+MySql实现用户登录注册功能
  • javascipt:void
  • EasyTouch Broadcast messages选项在js和c#下的用法
  • javascript用什么运行
  • js div拖动
  • ajax与java使用实例
  • android学什么
  • 小规模纳税人30万免税政策
  • 客运企业增值税税率是多少
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设