Как я могу вызвать функцию оболочки из сценария Perl

Question

Скажем, у меня есть такой сценарий оболочки:

utils.sh

function getDir
{
    echo "DirName"
}

Я хочу использовать эту функцию из сценария Perl:

test.pl

`source utils.sh`;

my $dir_name = `getDir`;

print $dir_name;

Но это не работает.Кто-нибудь может подсказать, как мне это сделать?По сути, мне нужно получить возвращаемое значение из функции оболочки в сценарий Perl.

Answer 1

Вам нужно будет вызывать эту функцию в той же оболочке, что и источники utils.sh, поэтому:

my $dir_name = `source utils.sh; getDir`;
chomp($dir_name);
print $dir_name, "\n";