get '/api/auto_publish/publish' => sub{

 my $c = shift;

 my $env = $c->param('env');

 my $app = $c->param('app');

 my $ip = $c->param('ip');

 my $stderr="";

 my $stdout="";

 my $XDATE = strftime("%Y%m%d%H%M%S",localtime());

 #and info='$app' and ip='$ip'

 use DBI;

my %hash=();

my $dbUser='DEVOPS';

my $user="root";

my $passwd="1234567";

my $dbh  = DBI->connect("dbi:mysql:database=$dbUser;host=192.168.32.161;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;

my $hostSql = qq{select script  from publish_info where env='$env' and info='$app' and ip='$ip'};

my $selStmt = $dbh->prepare($hostSql);

print "\$hostSql is $hostSql\n";

$selStmt->execute();

my $script = $selStmt->fetchrow_array();

print "\$script is $script\n";

use Net::SSH::Perl;

my $host="$ip";;

my $user='root';

my $passwd='xxxx';

my $cmd="sh $script";

my $ssh = Net::SSH::Perl->new($host,port=>22);

$ssh->login($user,$passwd);

my ($stdout,$stderr,$exit) = $ssh->cmd("$cmd");

$ssh->cmd("exit");

if($exit != 0){

print "ErrorCode:$exit\n";

print "ErrorMsg:$stderr";

open( F, ">>", "/home/scan/mojo/log/$app-$ip-$XDATE.log" );

print F ("ErrorCode:$exit\n");

print F ("ErrorMsg:$stderr\n");

close F;

 $c->render(text =>  "ErrorCode:$exit;ErrorMsg:$stderr")

} else {

print $stdout;

open( F, ">>", "/home/scan/mojo/log/$app-$ip-$XDATE.log" );

print F ("ErrorCode:$exit\n");

print F ("ErrorMsg:$stderr\n");

print F ("$stdout\n");

close F;

$c->render(text =>  'publish success')

}

};

脚本名字存放在数据库中:

mysql> select * from publish_info;

+----+----------------+-----------------+------+---------------------------+

| sn | ip             | info            | env  | script                    |

+----+----------------+-----------------+------+---------------------------+

|  1 | 121.xx.xx.9xx  | uat-frontend    | uat  | /root/auto_run/publish.sh |

|  2 | 1.1.1.1        | aa              | test | /root/auto_run/publish.sh |

|  3 | 121.xx.1xxx.1xx | zjzc-hy-pre-01  | uat  | /root/auto_run/publish.sh |

|  6 | 121.0.1.8       | zjzc-hy-core-01 | uat  | /root/auto_run/publish.sh |

+----+----------------+-----------------+------+---------------------------+

4 rows in set (0.00 sec)

调用的shell脚本内容: