CODEWITHSUNDEEP
perluser-interface
mac
mac

Reputation: 930

Is this possible using perl?

As soon as I login to my system (basically linux) I get the below screen enter image description here

Now I use arrow button and goto "GET_TESTROOT" and then press enter and takes me to this screen

![second image][2]

Here I confirm and say "yes" and it will bring me to another screen enter image description here

Now I need to get the "serial number" and "testroot ID" into a variable.

Is this even possivble in perl ?

Upvotes: 2

Views: 166

Answers (1)

Martin Olsen
Martin Olsen

Reputation: 1925

If these "screens" appear immediately after login (ie. executed from .profile or set directly as user shell) then the short answer is no!

The long answer is, of cause you can. You would have to create an expect script which connects to the server, sends some phony key presses and parses the output (which looks like some variant of curses to me). When that script is done, you can invoke it from Perl and extract the wanted values.

You can get most of the tools you need for this from cygwin.

Upvotes: 1

Related Questions