如何通过Perl以编程方式控制交互式Unix应用程序?

Ano*_*don 7 perl controls named-pipes

我继承了一个已有20年历史的交互式命令行unix应用程序,该应用程序不再受其供应商的支持.我们需要在此应用程序中自动执行某些任务.

其中最麻烦的是创建数千个具有略微不同参数的新记录(例如,不同的标识符,不同的名称).记录必须按顺序创建,一次一个,这需要花费许多个月(因此美元)来手动完成.在大多数情况下,创建记录具有非常可预测的键入命令,读取响应,键入其他命令等模式.但是,某些记录创建操作将导致错误条件("具有此标识符的记录已存在")一组不同的命令,可以优雅地退出.

我可以看到几种不同的方法来做到这一点:

  • 命名管道.编写运行目标应用程序的Perl脚本,并将STDIN和STDOUT设置为命名管道,然后向目标应用程序发送命令序列以创建具有所需参数的记录,然后指示目标应用程序退出和关闭.然后,我们根据需要使用不同的参数多次运行脚本.

  • 应用.找到另一个可用于编写交互式程序脚本的Unix工具.我能找到的唯一的东西是期待的,但这似乎不是最好的维持; 和聊天,我记得很久以前,它似乎做了或多或少我想要的,但似乎只是控制调制解调器.

还有一个潜在的复杂问题:我认为目标应用程序是为VT100终端编写的,它使用某种转义序列来执行提供突出显示等功能.

我的问题是我应该采取什么方法?其中之一,还是完全不同的东西?我非常喜欢使用命名管道,然后使用Perl脚本打开FIFO并根据需要进行读写,因为它提供了很大的灵活性,但从我所看到的情况来看,似乎存在很多潜在的问题,如果我走这条路.

提前致谢.

ire*_*ses 12

正如混乱所暗示的那样,我绝对会坚持使用Perl来获得额外的灵活性.你知道Expectperl模块吗?它比命名管道方法好很多.

另请注意,使用命名管道,您无法强制从遗留应用程序返回的输出无缓冲,这可能很烦人.我认为 Expect.pm使用伪ttys来解决这个问题,但我不确定.有关详细信息,请参阅"与另一个进程的双向通信"perlipc一节中的讨论.