如何在Perl中调用Unix“脚本”命令?

时间:2013-06-12 23:10:37

标签: perl unix command

我确信这是一个简单的解决方法,但我需要为我的项目使用“脚本”(而不是收集标准输入/输出/错误)。我对Perl有些新意,所以请耐心等待。

我有一个工作正常的Perl脚本。当我运行它时,我通常在运行Perl之前键入script > filename

$script > file.log
bash-3.2$ perl foobar.pl

运行正常,当我完成后,我输入exit或control D来停止脚本并保存文件。我想要做的就是在Perl中加入script命令,然后在程序停止运行时自动捕获文件(12-16小时)。我遇到的问题是我在system("script > file.log");打电话,他们在system("perl foobar.pl");提示符处挂起bash-3.2$。让Perl工作的唯一方法是控制D或退出,停止脚本功能。

任何人都知道如何解决这个问题?虽然在调用Perl之前很容易从脚本开始,但如果我是一个痣而忘记了,我必须重新运行该程序(这需要很长时间)。

1 个答案:

答案 0 :(得分:0)

您是否考虑过使用system("script -c 'perl foobar.pl' file.log")