位置: 编程技术 - 正文

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

  • 珠宝饰品在什么地方买
  • 委托加工业务的会计处理
  • 车船税讲解
  • 在建工程转入固定资产当月计提折旧吗
  • 清产核资与清算的关系
  • 供应商给的折扣比发票少怎么做账
  • 帮别人开票收税点怎么做账
  • 固定资产发票怎么入账
  • 法人转钱进公账要交税吗
  • 收财务拨款的贷款合法吗
  • 以前年度损益调整属于哪类科目
  • 以前年度留抵用完 不能抵欠税
  • 增值税税负最终由谁承担
  • 使用简易计税方法是什么意思
  • 增值税减免税如何处理
  • 办理税务登记与办理法人企业有何区别?
  • 银行呆帐坏账
  • 外挂项目跨年结转分录怎么做?
  • 商场补贴申请怎么写
  • 工业产值怎么计算的 统计
  • 人身意外保险费可以扣除企业所得税吗
  • 文件在另一个程序中打开,怎么解决
  • 苹果系统如何访问相册
  • 微信转账截图可以p图吗
  • 银行年费通过什么渠道交
  • 新职工工资从什么时候起算
  • 预缴附加税款会退税吗
  • pdf.js原理
  • 经济业务原始凭证分录
  • 稀有品种茅膏菜
  • 资产划转增值税 开票怎么开
  • 交通运输业成本构成比例
  • iframe vh
  • php简单么
  • php文件修改后,打开还是显示以前的页面
  • laravel app接口
  • 保险补偿金额的计算
  • laravel访问路由方式
  • 内外参标定
  • html用javascript
  • tar -xvf命令
  • 待抵扣进项税额是什么情况下用的
  • 收回投资收到的现金减少
  • 如何设置固定资产累计折旧增值税进项税额缺损入账科目
  • 增值税和个人所得税怎么算
  • 应收账款科目的期末余额
  • 长期股权投资成本法转权益法的处理
  • 农民专业合作社属于什么经济类型
  • 物流企业发生的费用包括
  • 资产报废折旧
  • 工程外地预缴会计分录
  • 河道工程修建维护管理费何时开始停征?
  • 净利润为负数会计分录
  • 半成品仓库的管理办法
  • 期末未缴税额为正是什么意思
  • 年数总和法和双倍余额递减法的公式
  • 微软终止代码大全
  • win10服务怎么打开
  • 注册表禁止windows自动更新
  • win2000蓝屏0x0000007b
  • linux仿mac
  • vim wqa
  • windows8.1如何安装
  • 安装与配置linux操作系统
  • win8怎样设置禁止弹出广告
  • node. js教程
  • python 多线程调用
  • Unity3D游戏开发引擎
  • JAVASCRIPT IE 与 FF 中兼容写法记录
  • react-router react-router-dom
  • javascript闭包详解
  • 安卓手机画画触屏笔推荐
  • python同一层次的语言必须对齐吗
  • 深入理解新发展理念,推进供给侧结构性改革
  • linux jhat
  • A级纳税人和一般纳税人区别
  • 辽宁国家税务局公务员职位2023
  • 地税局刚进去工资多少
  • 原木进项税率
  • 甘肃税务政策
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设