Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Expect Module problem

by Paladin (Priest)
on Jul 13, 2004 at 21:48 UTC ( #374155=note: print w/ replies, xml ) Need Help??


in reply to Expect Module problem

Well, you aren't doing anything after spawning the process, so the script is ending and killing the process. Try the following:

use Expect; $Expect::Debug = 1; my $string= '/usr/bin/ssh 127.0.0.1'; my $exp=Expect->spawn($string) || die "error $!\n"; $exp->expect(2, "password: "); $exp->send("XXXXXXXX\n"); $exp->expect(2,'$'); $exp->send("ls\n"); $exp->expect(2,'$');
This works fine on my system.

Update:

If your goal is to interact with the ssh session after scripting the login, try adding:

$exp->interact();
after you have finished logging in.


Comment on Re: Expect Module problem
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://374155]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2014-08-23 09:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls