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 ~]#