【发布时间】:2017-04-06 18:50:11
【问题描述】:
我目前有一个 Perl 脚本(我无法编辑),它会询问用户几个问题,然后将生成的输出打印到标准输出。我想制作另一个调用该脚本的脚本,允许用户正常与其交互,然后将输出从 stdout 存储到变量中。
这是一个非常简单的示例,说明我正在尝试完成的工作:
inner.pl
#!/usr/bin/perl
print "Enter a number:";
$reply = <>;
print "$reply";
outer.sh(基于 Op De Cirkel here 的回答)
#!/bin/bash
echo "Calling inner.pl"
exec 5>&1
OUTPUT=$(./inner.pl | tee >(cat - >&5))
echo "Retrieved output: $OUTPUT"
期望的输出:
$ ./outer.sh
Calling inner.pl
Enter a number: 7
7
Retrieved output: 7
但是,当我尝试此操作时,脚本将在“挂起”之前输出 Calling inner.pl,而不会从 inner.sh 打印任何内容。
我找到了一个解决方法,使用script 命令将整个inner.sh 交换存储到一个临时文件,然后使用sed 等根据我的需要进行修改。但是为这样的相当琐碎的事情制作临时文件并没有多大意义(更不用说script 喜欢为所有内容添加时间戳和\rs)。有没有非script 的方式来实现这一点?
【问题讨论】:
-
你的例子
inner.sh和outer.sh非常适合我...... -
也许我当时过于简化了。原来的“inner.sh”实际上是一个 Perl 脚本。我对 Perl 一无所知,但这可能是我的输出不起作用的原因吗?也许 Perl 以不同的方式处理文件描述符和标准输出? - 以防万一,我会在我的问题中添加这个细节。