Отказано в доступе при выполнении сценария оболочки из perl

Question

У меня проблема с разрешениями при выполнении сценария оболочки из perl. Проблема не появляется при выполнении сценария оболочки без perl.

#!/usr/bin/perl

use Getopt::Long;

my $server = "remoteServer";

my $i_login ='';
my $i_kont ='';

GetOptions (
        "--login|l=s" => \$i_login,
        "--kont|k=s" =>\$i_kont
                );

if(!$i_login || !$i_kont)
{
         print "Not required parameters\n";
         exit 1;
}

my $kont = "pathToScript/script/script.sh";

if ($i_kont eq "run")
{
        system('ssh', $server, $kont, '-m', $i_login);
}
else
{
print "run kont manually\n";
}

tee: script_2020-03-09-10: 24: 27.log: разрешение отклонено

Оба сценария получены разрешения -rwxrwxr-x.

Answer 1

решаемая. Когда я выполняю скрипт из s sh, он не читает профиль. Я добавил строку в $ kont = "pathToScript / script / script. sh", чтобы прочитать профиль в начале, и теперь он работает нормально.