乱读天书， 不求甚解
周祎骏的个人云笔记
Toggle navigation
乱读天书， 不求甚解
主页
Linux:系统配置
Linux:用户管理
Linux:优化排错
Linux:进程调度
Linux:文件系统
Linux:网络
Linux:系统服务
Linux:安全
Linux:内核
容器:Docker
容器:containerd
容器编排:Kubernetes
IAC:Terraform
大数据:Hadoop
大数据:Zookeeper
大数据:Hbase
消息队列:rsyslog
消息队列:kafka
数据库:MySQL
数据库:MongoDB
搜索引擎:Elasticsearch
时序数据库:OpenTSDB
网站服务:Nginx
编程:Bash
编程:Perl
编程:Python
编程:C
编程:JAVA
编程:Rust
版本控制:gitlab
知识管理:docusaurus
常用小工具
关于我
标签
perl 3.05 连数据库的方式(mysql)
2016-05-27 00:18:06
49
0
0
admin
>perl 连数据库的方式 #连mysql ```perl [root@hr-system tmp]# cat dbi.pl #!/usr/bin/perl use warnings; use strict; use Data::Dumper; use DBI; my @row; my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", { RaiseError => 1, AutoCommit => 0 }); #my $setutf8 = $dbh->prepare("set names utf8"); 当有中文时要用 #$setutf8->execute; my $sth = $dbh->prepare("SELECT * FROM abcd"); $sth->execute; while ( @row = $sth->fetchrow_array ) { print Dumper @row; } ```
上一篇:
perl 3.04 用模块获得复杂的参数
下一篇:
perl 3.06 自动化交互
文档导航
admin
admin