相关疑难解决方法(0)

Perl支持运行外部程序的三种方式(我知道):

system:

   system PROGRAM LIST

如:

system "abc";

反引号如:

`abc`;

通过管道运行它,如:

open ABC, "abc|";

它们之间有什么区别？这就是我所知道的:

1. 您可以使用反引号和管道轻松获取命令的输出.
2. 就是这样(在未来的编辑中更多？)

我的系统功能有问题.我想将系统函数输出存储到变量中.

例如,

system("ls");

在这里,我希望当前目录中的所有文件名都存储在变量中.我知道我可以通过将输出重定向到一个文件并从中读取并将其存储到变量来实现.但我想要一种有效的方法.有什么办法吗？

在Unix上,所有这三个都会产生相同的结果

system("top -H -p $pid -n 1");             #ver1
system("top", "H", "p $pid", "n 1");       #ver2
system("top", "-H", "-p $pid", "-n 1");    #ver3

• 是什么区别VER2和VER3？

• 有什么理由我应该使用ver2和ver3,而不是ver1？

• 它们甚至不支持管道结果,例如,是否有以下调用的ver2和ver3等价物？

  system("top -H -p $pid -n 1 | grep myprocess | wc -l");
  

  Run Code Online (Sandbox Code Playgroud)

问题

我试图在perl cmd执行块中重用脚本中稍后在bash脚本中定义的shell函数.对匹配一个正则表达式(捕获组#2)后,对perl cmd的调用基本上需要运行定义的shell函数.请参阅下面的代码定义

代码

bash shell脚本中的相关函数定义:

    evalPS() {
        PS_ARGS=$(eval 'echo -en "'${1}'"' | sed -e 's#\\\[##g' -e 's#\\\]##g')
        PS_STR=$((set +x; (PS4="+.$PS_ARGS"; set -x; :) 2>&1) | cut -d':' -f1 | cut -d'.' -f2)
        echo -en "${PS_STR}"
    }

上面的定义使用一些bashisms和hacks来评估用户对字符串的真实提示.

需要在下一个函数中在perl中调用该函数:

    remPS() {
        # store evalPS definition
        EVALPS_SOURCE=$(declare -f evalPS)
        # initalize prompt
        eval "$PROMPT_COMMAND" &> /dev/null
        # handle args
        ( [[ $# -eq 0 ]] && cat - || cat "${1}" ) |
        # …