Слияние кода завершено, страница обновится автоматически
#!/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"
}
}
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )