perl mysql 数据推拉_Perl Mysql数据库操作实现代码
Perl Mysql数据库操作实现代码
2021-01-23 17:46:104
一. 安装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.00 sec)
mysql> use mydata;
Database changed
mysql> create table address (
-> id int(5) not null,
-> name varchar(40) not null,
-> email varchar(50) not null,
-> telephone int(12) null);
Query OK, 0 rows affected (0.05 sec)
输入些数据:
mysql> insert into address values (
-> 1,'Nighthawk','nighthawk@163.net',92384092);
Query OK, 1 row affected (0.00 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
点击这里复制本文地址
以上内容由聚米学院网友整理呈现,如对侵犯您的权益,请联系邮箱:fzsbm@qq.com
留言评论
perl mysql 数据推拉_Perl Mysql数据库操作实现代码相关推荐
- perl mysql 数据推拉_Perl操作Mysql数据库
1. CGI变量简介 如果你在以前使用过传统的CGI,你应该对"CGI变量"的概念很熟悉. 由这些变量可以取得一些和请求(Request)有关的信息.其中一些来自于 HTTP 请求 ...
- perl mysql 数据推拉_科学网—从MySQL数据库中提取序列并进行引物设计的perl脚本 - 闫双勇的博文...
利用MySQL数据库来储存序列,通过perl脚本获取序列,并进行引物设计.当然除了引物设计干其它事情也是可以的. 将FASTA文件导入MySQL数据库的方法: bp_seqfeature_load.p ...
- perl mysql 数据推拉_MySQL_Perl操作mysql数据库的方法,Perl对Mysql的操作。
一、标准 - phpStudy...
Perl对Mysql的操作. 一.标准操作 1.连接.关闭 my $dbh = DBI->connect("DBI:mysql:database=DBname;host=localho ...
- perl mysql 数据推拉_用perl 从mysql取出数据做统计分析代码
为完成老大的要求,我写了一个代码完成这个工作.现在记录在博客上,跟大家分享一下.脚本水平很差,((o(´∀`)o)). 要求如下: 1.数据库mydata1中有个sms_info表,表中记录格式如下: ...
- perl mysql 数据推拉_使用Perl DBI操作MySQL的一些建议
使用perl连接mysql,这个网上有很多案例了,一般大家都是DBI下的DBD::MySQL这个模块进行.这里做一个mask弄一个TIPS: Perl DBI MySQL的字符集为UTF8 Perl ...
- 我艹,MySQL数据量大时,delete操作无法命中索引。
来自:Java面试那些事儿 最近,在脉脉上看到一个楼主提出的问题:MySQL数据量大时,delete操作无法命中索引:并且还附上了相关案例截图. 最终,楼主通过开启MySQL分析优化器追踪,定位到是优 ...
- nodejs mysql数据推送_使用Nodejs实现实时推送MySQL数据库最新信息到客户端
下面我们要做的就是把MySQL这边一张表数据的更新实时的推送到客户端,比如MySQL这边表的数据abc变成123了,那使用程序就会把最新的123推送到每一个连接到服务器的客户端.如果服务器的连接的客户 ...
- mysql 第二天数据_MySQL入门第二天------数据库操作
一.基本命令 1.启动服务器 cmd net start [服务器名称] net start mysql57 2.停止服务器 cmd net stop [服务器名称] net stop mysql57 ...
- mysql 数据迁移_CentOS7迁移Mysql数据库文件
1.查看Mysql安装路径 cat /etc/my.cnf 2.查看数据盘路径 df 3.数据盘下创建mysql数据目录,设置目录磁盘写入权限 cd /mnt1/xfrb_database/mkdir ...
最新文章
- amqp协议_AMQP协议、模型及RabbitMQ常用组件
- Jchatting通过Sina SAE云开发平台高级开发者认证
- java 图形库_OpenGL开放图形java库jogamp-all-platforms.7z
- OSI七层与TCP/IP四/五层网络架构
- Java面试题2021,文末有福利
- HDFS伪分布式集群搭建
- 不同特征值对应的特征向量
- python取文件后缀
- 【mysql】Filesort on too many rows解决方法
- [引]构造文法时表达式中算符优先级的问题
- 网易云API服务搭建
- 数字化重建巴黎圣母院,AI还能为人类文明遗产做些什么?
- NLP实验一:形式语言和自动机
- 笔记本电脑插入HDMI外接显示器没有声音问题
- 1、Debian-Pi-Aarch64 系统安装
- 美国约翰斯·霍普金斯大学全球新冠疫情统计数据网址
- 养猪还是养羊,刀杀还是电击?
- python dingding --- 钉钉机器人API
- 充电桩云平台-一站式运营服务平台
- squid,Varnish,nginx cache,ats,btw 区别
热门文章
- 电脑和树莓派之间传输文件
- linux查看硬件PCI设备,Linux系统查看硬件信息神器,比pci设备好用100倍!
- svn:E170001:Authorization failed
- 互联网加比赛“潜规则”,你知道多少?干货满满,说一说亲身经历
- 淘宝婴儿产品销售的数据分析
- C程序----韩信点兵
- 学Python最基本20个代码__1
- php 1075 incorrect,windows无法启动wlan错误1075怎么办
- springboot依赖lib外置打成压缩包,以及snapshot依赖jar包ClassNotFoundExcepttion异常的解决办法
- Java开发工程师与大数据开发工程师有何区别?