perl 执行mysql select 返回多条记录

最新推荐文章于 2024-06-23 10:00:00 发布

scan724

最新推荐文章于 2024-06-23 10:00:00 发布

阅读量1.5k

点赞数

分类专栏： Perl DBI

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/51302731

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

本文展示了如何使用Perl脚本连接到MySQL数据库，并执行一个查询以获取多条记录。脚本根据传入的参数筛选特定环境下的机器信息，包括IP地址、INFO和ENV字段。查询结果被存储在数组中并打印出来。

摘要由CSDN通过智能技术生成

[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 &#

了解本专栏