接口返回json
2024-10-09 01:40:40
use Mojolicious::Lite;
use JSON qw/encode_json decode_json/; # /foo?user=sri
get '/api' => sub {
my $c = shift;
my $env = $c->param('env'); if ($env){
use DBI;
my $dbName = 'oadb';
my $dbUser = 'query';
my $dbUserPass = 'xxxxxx';
my @arr2="";
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
my $hostSql = qq{select IP,INFO,ENV from machine_info where ENV='env-$env' };
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->bind_columns( \$a1, \$a2, \$a3);
$selStmt->execute();
while( $selStmt->fetch() ){ push (@arr2, "$a1 $a2 $a3" ); };
my $arr2=\@arr2;
my $json =encode_json($arr2);
$c->render(text => "$json");
};
}; app->start; 这个接口返回的是: [root@dr-mysql01 ~]# perl a1.pl
["","192.168.32.111 haproxy env-zjtest2","192.168.32.178 front-end env-zjtest2","192.168.32.180 backoffice env-zjtest2","192.168.32.181 app env-zjtest2","192.168.32.185 zjzc-mysql env-zjtest2","192.168.32.186 pay-mysql env-zjtest2","192.168.32.187 redis env-zjtest2","192.168.32.182 nfs env-zjtest2"] 修改接口: use Mojolicious::Lite;
use JSON qw/encode_json decode_json/; # /foo?user=sri
get '/api' => sub {
my $c = shift;
my $env = $c->param('env'); if ($env){
use DBI;
my $dbName = 'oadb';
my $dbUser = 'query';
my $dbUserPass = 'kjk7787czcb';
my @arr2="";
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
my $hostSql = qq{select IP,INFO,ENV from machine_info where ENV='env-$env' };
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->bind_columns( \$a1, \$a2, \$a3);
$selStmt->execute();
while( $selStmt->fetch() ){ push (@arr2, "$a1 $a2 $a3" ); };
$c->render(json => \@arr2);
};
}; app->start; 返回JSON: ["","192.168.32.111 haproxy env-zjtest2","192.168.32.178 front-end env-zjtest2","192.168.32.180 backoffice env-zjtest2","192.168.32.181 app env-zjtest2","192.168.32.185 zjzc-mysql env-zjtest2","192.168.32.186 pay-mysql env-zjtest2","192.168.32.187 redis env-zjtest2","192.168.32.182 nfs env-zjtest2"][root@dr-mysql01 ~]#
最新文章
- node服务的监控预警系统架构
- Jquery-选择框点击勾选或者取消
- 让 Web 站点崩溃最常见的七大原因
- ligerui_ligerTree_005_动态增加“树”节点
- VC++ 关于 ON_UPDATE_COMMAND_UI 相关的作用.
- blueImp/jQuery file upload 的正确用法(限制上传大小和文件类型)
- hdu 2041
- 【1-5】jQuery对象和DOM对象
- 8051学习笔记——AD
- dwz+jquery+fileupload+springmvc实现文件上传 及图片预览
- ASP.NET MVC学习之控制器篇扩展性
- Amazon EC2 的名词解释
- Xcode7 新添旧版模拟器方法
- python实现冒泡排序和快速排序
- gradlew和gradle的区别
- Java学习笔记之——继承
- php 依赖注入的实现
- (转)Node.js module.exports与exports
- Intellij IDEA配置tomcat热部署
- C#轻量级日志监控器EasyLogMonitor