这可能使用perl吗？

Question

一旦我登录到我的系统（基本上是linux），我就会看到以下屏幕

现在我使用箭头按钮并转到“GET_TESTROOT”，然后按回车键将我带到此屏幕

！[第二张图片] [2]

在这里，我确认并说“是”，它会将我带到另一个屏幕

现在我需要将“序列号”和“testroot ID”放入变量中。

这在perl中是否可行？

Answer 1

如果这些“屏幕”在登录后立即出现（即从.profile执行或直接设置为用户shell），那么简短的回答是否定的！

答案很长，原因可以。您必须创建一个连接到服务器的expect脚本，发送一些假按键并解析输出（看起来像curses的某些变体给我）。完成该脚本后，您可以从Perl调用它并提取所需的值。

您可以从cygwin获得所需的大部分工具。