mojo 接口返回键值对的json格式

最新推荐文章于 2022-07-15 16:51:17 发布

scan724

最新推荐文章于 2022-07-15 16:51:17 发布

阅读量572

点赞数

分类专栏： mojo

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

版权

mojo 专栏收录该内容

19 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl的DBI模块连接到MySQL数据库，执行SQL查询，获取hostid和name的键值对，并将结果转换为JSON格式进行返回。示例代码中，查询了hosts表中特定hostid的主机名信息。

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

  my $c = shift;
use DBI;
my %hash=();  
my $dbUser='zabbix';  
my $user="root";  
my $passwd="1234567"; 
my $dbh  = DBI->connect("dbi:mysql:database=$dbUser;host=192.168.32.xx;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;
my $hostSql = qq{ select hostid,name  from hosts  where hostid in ('10001','10081','10050') };   
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9); 
 
my $selStmt = $dbh->prepare($hostSql);  
$selStmt->execute();
$selStmt->bind_columns(undef, \$a1, \$a2);  
while( $selStmt->fetch() ){ 
print "\$a1 is $a1\n";
print "\$a2 is $a2\n";
$hash{$a1}=$a2;
  };
print %hash;
print

了解本专栏