代码拉取完成,页面将自动刷新
#!/bin/bash
cpanm="/bin/cpanm";
if [ ! -f $cpanm ];then
# wget http://xrl.us/cpanm -O $cpanm;
wget -O $cpanm --no-check-certificate https://raw.githubusercontent.com/miyagawa/cpanminus/master/cpanm
fi
if [ ! -x $cpanm ];then
chmod +x $cpanm
fi
echo "must install openssl-devel";
apt-get -y install libssl-dev
yum -y install openssl-devel
#! -*-perl-*-
eval 'exec perl -x -wS $0 ${1+"$@"}'
if 0;
use strict;
my @packages=(
'Moo',
'Smart::Comments',
'JSON',
'HTTP::Tiny',
'Net::SSLeay',
'IO::Socket::SSL',
'File::Slurp',
'App::Daemon',
'Proc::Fork'
);
print "You must be root to run this program\n" and exit 1 unless ($> == 0);
foreach my $module ( @packages ) {
unless (eval { require $module }) {
print "Need to install [ $module ] module. I'll do that for you now:\n";
my $ret = system("/bin/cpanm --mirror http://mirrors.163.com/cpan --mirror-only -n $module");
print $ret;
print "if intstall perl module has error ,please try: cpanm -f <module>\n"
}
}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。