如何在我的 Perl 中调用 shell 脚本函数？

Question

我在util.sh中有一些函数，我想调用util.sh中的函数并获取返回值。 有人知道怎么做吗？

util.sh

#!/bin/bash
sayhello()
{
    echo $1 "hello"
}

我尝试使用以下命令在终端中调用该函数，但得到输出“找不到命令sayhello”：

sh /home/adnrew/code/test/util.sh sayhello test

并使用我的 perl 中的代码如下，

$returnvalue = system("/home/adnrew/code/test/util.sh sayhello test ");

也不行。

如何在我的 Perl 中调用 shell 脚本函数？

Answer 1

您可以通过

将 shell 脚本引入子进程

$returnvalue = system(". /home/adnrew/code/test/util.sh; sayhello test");

父进程（bash shell 或 perl 系统子进程）在尝试执行 bash shell 时会创建一个子 bash 进程。因此，脚本中定义的任何内容都仅限于子进程，不会反映在父进程本身中。 另一方面，获取脚本（'dot' 命令或 source）会在同一个 bash 进程中运行定义。