小编Tyl*_*ore的帖子

问题

我试图在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}" ) |
        # …