Re^2: Perl Expect

I run script in Linux environment. I am trying to connect to a box and execute commands, all of sudden the handle gets close/not able to send any command on that expect channel and give error.

Please find sample code snippet: #!/usr/bin/perl use strict; use Expect; my $session = new Expect; $session->spawn("/volume/labtools/bin/nicetelnet -KE $my_ip"); $session->expect(90, -re, "login:"); print $session "regress\r"; $session->expect(90, -re, "Password:"); print $session "MaRtInI\r"; $session->expect(90, -re, ".*"); print $session "pwd\r"; $session->expect(90, -re, ".*"); $session->close(); <\p>

Error: Get below error, when script tries to print "pwd\r" cmmand on the expect handle. ERROR: No such file or directory <\p> Thanks in advance

Comment on Re^2: Perl Expect

Replies are listed 'Best First'.
Re^3: Perl Expect by salva (Canon) on Jan 17, 2018 at 12:05 UTC
When posting put code inside `<code>...</code>` tags, please. Otherwise it is quite hard to read. What is that `nicetelnet` thing? using a too clever telnet client my get in the way.	[reply] [d/l] [select]
Re^4: Perl Expect by Anonymous Monk on Jan 18, 2018 at 05:23 UTC
nicetelnet is just a wrapper on top of telnet. reposing the code. `#!/usr/bin/perl use strict; use Expect; my $session = new Expect; $session->spawn("telnet $my_ip"); $session->expect(90, -re, "login:"); print $session "regress\r"; $session->expect(90, -re, "Password:"); print $session "MaRtInI\r"; $session->expect(90, -re, "."); print $session "pwd\r"; $session->expect(90, -re, "."); $session->close()` [download]	[reply] [d/l]
Re^5: Perl Expect by salva (Canon) on Jan 18, 2018 at 07:39 UTC
Expect provides several methods for retrieving the matching data and also the last error. Have you experimented with them? Expect should be able to detect the slave process has terminated and report it accordingly. You could also try Net::Telnet. That module doesn't depend on an intermediate program and shouldn't have any problem detecting a remote closed connection (in case Expect has any).	[reply]