get '/api/log_mon/get_log' => sub{
my $c = shift;
my $env = $c->param('env');
my $host = $c->param('host');
use DBI;
my $dbUser='DEVOPS';
my $user="root";
my $passwd="1234567";
my @arr2=();;
my $dbh = DBI->connect("dbi:mysql:database=DEVOPS;host=192.168.32.161;port=3306",$user,$passwd,{mysql_enable_utf8 => 1} ) or die "can't connect to database ". DBI-errstr;
my $hostSql = qq{select sn,host_name,host_ip,v_date,info,env from err_info where env='$env' and host_name='$host' order by v_date desc limit 20};
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);
my $selStmt = $dbh->prepare($hostSql);
$selStmt->execute();
$selStmt->bind_columns(undef, \$a1, \$a2, \$a3,\$a4,\$a5,\$a6);
#$selStmt->execute();
while( $selStmt->fetch() ){ push (@arr2, "$a1 $a2 $a3 $a4 $a5 $a6\n" );
};
chomp @arr2;
print "\@arr2 is @arr2\n";
$c->render(json => \@arr2);
};
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步