Damn! I was going to run it on Windows but I guess I can run it on Solaris. The thing is as of now I have a 500 line script that automates software upgrades on a piece of network gear I work with. I originally wrote this script using the telnet.pm to create and direct the session from a work station to the node. However I need a way (like expect) to issue a command and wait for a response before continueing. I accomplished this also by using the Telnet module due to the "waitfor" function in this module.
This function seems a little buggy though which is why I wanted to rewrite it using the expect module. The waitfor command does not wait for some system responses before continueing therefore screwing up the entire process from there on out.
Is there any way I can embedd true TCL/Expect in a perl script or maybe just write this section of the script in Expect and call it with the perl script when I get there?
Can anyone think of any better ways to accomplish this? |