http://www.perlmonks.org?node_id=979410


in reply to perl-expect interact command

Or you could add
while ($exp->pid()) { $exp->send("exit\n"); }
right after the $exp->interact(); to just keep sending 'exits' while the ssh connection is still open :)

Replies are listed 'Best First'.
Re^2: perl-expect interact command
by Frits (Novice) on Jul 02, 2012 at 11:23 UTC

    The pid is not closing the process as expected. Next to this is that this is hanging the script to be closed. Also the second option to just keep sending an exit also closes sessions at times that I'm still logged into the device.. I suspect that when there is an option of doing a expect in the interact will solve my issue. The point is that all options I have tried failed.

[reply]
      Ok...how about looking at $exp->exitstatus() or using the $escape_sequence in $exp->interact()?
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom