Question

我想从PERL服务器-客户端脚本运行bash脚本和python脚本。连接有效，如果通过客户端的发送命令得到正确答案，例如“ DATE”使我获得客户端的当前日期。我想在客户终端窗口中轻按“ SCRIPT”运行bash脚本，但现在它在服务器终端窗口中运行。我可以修复它并在客户端窗口中运行脚本吗？也许解决方案很简单，但现在我不知道。预先感谢您的帮助。

我的代码片段如何尝试运行脚本


   foreach ($buf) {
            /^SCRIPT$/ and
                    print ($sock system("/bin/bash /path/to/my/bash_script")),  
                   last;
       /^DATE$/  and
                   print($sock
                         scalar(localtime),
                         "\n"),
                   last;
       print $sock "NO OPTION\n";
   }

编辑：

关于评论，我更改此行：

print ($sock system("/bin/bash /path/to/my/bash_script"))

对此：

print ($sock `/bin/bash /path/to/my/bash_script`)

这非常适合python脚本。对于交互式的bash脚本，此方法不正确。这是使用tput为游戏区域着色的bash简单游戏。

交互性-游戏中的控件：

    local key=$(cat -v)
    local dy=0
    local dr=0

    if [ "$key" == "w" ]; then
        dy=$((dy-2))
    fi

    if [ "$key" == "s" ]; then
        dy=$((dy+2))
    fi


    if [ "$key" == "^[[A" ]; then
        dr=$((dr-2))
    fi

    if [ "$key" == "^[[B" ]; then
        dr=$((dr+2))
    fi

主循环是这样的：

while [key "e" for exit not down] then
    interactivity()
    draw_game_area()
    increase_iteration++
    sleep 0.1
done;

Answer 1

print ($sock system("/bin/bash /path/to/my/bash_script"))

将system（）的返回发送给客户端，但这不是脚本的输出。要捕获脚本的输出并将其返回给客户端，请改用反引号：

print($sock `/bin/bash /path/to/my/bash_script`), last;

Answer 2

那里没有标准的解决方案。客户端必须支持远程运行系统命令的功能-即自己成为命令服务器。

在PERL的客户端上运行Bash和Python脚本

2 个答案: