如何从Perl脚本调用shell函数

Question

说，我有一个像这样的shell脚本：

utils.sh

function getDir
{
    echo "DirName"
}

我想在Perl脚本中使用该函数：

test.pl

`source utils.sh`;

my $dir_name = `getDir`;

print $dir_name;

但这不起作用。任何人都可以建议我如何完成这项工作？基本上我需要从shell函数获取返回值到Perl脚本。

Answer 1

您需要在源utils.sh的同一个shell中调用该函数，所以：

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