上一页 1 ··· 114 115 116 117 118 119 120 121 122 ··· 177 下一页
摘要: if [ ! $# -eq 2 ] ;thenecho "请输入用户密码以空格分开"exitelsessh-keygen -t rsa#用户名uname="$1"#密码passwd="$2"fi#执行检测并安装expect模块ep=`rpm -qa | grep expect` if [ -... 阅读全文
posted @ 2016-05-06 16:44 czcb 阅读(128) 评论(0) 推荐(0) 编辑
摘要: if [ ! $# -eq 2 ] ;thenecho "请输入用户密码以空格分开"exitelsessh-keygen -t rsa#用户名uname="$1"#密码passwd="$2"fi#执行检测并安装expect模块ep=`rpm -qa | grep expect` if [ -... 阅读全文
posted @ 2016-05-06 16:44 czcb 阅读(112) 评论(0) 推荐(0) 编辑
摘要: [Thu May 5 11:02:27 2016] [error] Corrupted MAC on input at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/SSH/Perl/Packet.pm line 229.这个模块偶... 阅读全文
posted @ 2016-05-05 11:20 czcb 阅读(241) 评论(0) 推荐(0) 编辑
摘要: [Thu May 5 11:02:27 2016] [error] Corrupted MAC on input at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/SSH/Perl/Packet.pm line 229.这个模块偶... 阅读全文
posted @ 2016-05-05 11:20 czcb 阅读(147) 评论(0) 推荐(0) 编辑
摘要: 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... 阅读全文
posted @ 2016-05-05 09:31 czcb 阅读(132) 评论(0) 推荐(0) 编辑
摘要: 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... 阅读全文
posted @ 2016-05-05 09:31 czcb 阅读(100) 评论(0) 推荐(0) 编辑
摘要: 这种情况不断的网数组@arr2里放入数据,返回的内容为:这种情况是一维数组:while( $selStmt->fetch() ){print "\$a1 is $a1\n";print "\$a2 is $a2\n";print "\$a3 is $a3\n";push (@arr2, "$a1... 阅读全文
posted @ 2016-05-04 15:46 czcb 阅读(86) 评论(0) 推荐(0) 编辑
摘要: 这种情况不断的网数组@arr2里放入数据,返回的内容为:这种情况是一维数组:while( $selStmt->fetch() ){print "\$a1 is $a1\n";print "\$a2 is $a2\n";print "\$a3 is $a3\n";push (@arr2, "$a1... 阅读全文
posted @ 2016-05-04 15:46 czcb 阅读(115) 评论(0) 推荐(0) 编辑
摘要: Net::SSH::Perl - Perl client Interface to SSH Perl SSH的客户端接口 use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new($host); $ssh->login($user, ... 阅读全文
posted @ 2016-05-04 13:39 czcb 阅读(749) 评论(0) 推荐(0) 编辑
摘要: Net::SSH::Perl - Perl client Interface to SSH Perl SSH的客户端接口 use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new($host); $ssh->login($user, ... 阅读全文
posted @ 2016-05-04 13:39 czcb 阅读(228) 评论(0) 推荐(0) 编辑
上一页 1 ··· 114 115 116 117 118 119 120 121 122 ··· 177 下一页