perl 执行mysql select 返回多条记录
2016-05-03 10:45
381 查看
[root@dr-mysql01 sbin]# cat t1.pl use DBI; my $dbUser='DEVOPS'; my $user="root"; my $passwd="1234567"; $gp=$ARGV[0]; my @arr2=""; my $dbh = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.32.161;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr; my $hostSql = qq{select IP,INFO,ENV from machine_info where ENV='$gp' }; my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9); my $selStmt = $dbh->prepare($hostSql); $selStmt->execute(); $selStmt->bind_columns(undef, \$a1, \$a2, \$a3); #$selStmt->execute(); while( $selStmt->fetch() ){ push (@arr2, "$a1 $a2 $a3\n" ); }; print "\@arr2 is @arr2\n"; You have mail in /var/spool/mail/root [root@dr-mysql01 sbin]# perl t1.pl @arr2 is [root@dr-mysql01 sbin]# perl t1.pl 'env-zjtest5' @arr2 is 192.168.32.22 haproxy env-zjtest5 192.168.32.24 front-end env-zjtest5 192.168.32.23 backoffice env-zjtest5 192.168.32.25 app env-zjtest5 192.168.32.26 zjzc-db env-zjtest5 192.168.32.27 pay-db env-zjtest5 192.168.32.28 redis env-zjtest5 192.168.32.29 nfs env-zjtest5
相关文章推荐
- perl 执行mysql select 返回多条记录
- MYSQL安装图解
- mysql使用小技巧
- mysql使用小技巧
- mysql数据库text、varchar、blob数据类型比较
- perl 5.22手动安装Mysql DBI和DBD
- perl 5.22手动安装Mysql DBI和DBD
- perl 5.22手动安装Mysql DBI和DBD
- MYSQL数据表损坏的原因分析和修复方法小结
- MySQL中的insert into类似用法
- 关于mysql的wait_timeout参数 设置不生效的问题
- mysql 赋权笔记
- [转]MySQL排序原理与案例分析
- 根据mysql表中数据的存在与否,一条语句进行修改以及新增
- MySQL连接远程数据库报错 1042Can't get hostname for your address
- MESSAGE: [unixODBC][MySQL][ODBC 3.51 Driver]Can't connect to local MySQL server through socket '/tmp
- mysql的查询、子查询及连接查询
- innodb中master线程的调度的算法改进(mysql 5.6.26)
- MySQL内存分配
- mysqld执行的函数栈