LinuxQuestions.org - expect says it cant send the string to the spawned command

Hi

I've created a perl script that is using the Expect.pm module which lets me work with Expect in Perl.

The code is shown below (and the problems with the code are written in the comments):

Code:

#!/usr/bin/perl



# loading the expect module

use Expect;

use warnings ;



# creating a new expect object

my($exp) = new Expect;



# set Expect options

$exp-> raw_pty(1); #eliminates echo back to expect

$exp-> log_file("/expect.log", "w"); # log to expect.log

$exp-> debug(1); # debug level 1



# spawn the expect command

$exp-> spawn("ssh -l exceed localhost uname -o") ;



# check for the string "exceed@localhost's password:" string or print an error message

# the text is here found (i tested with an if-test and by replacing the text to search

# for so it would print the error message which it did

$exp->expect(5,"exceed\@localhost's password:") or die "didnt find password prompt" ;



# so, the text is found, but for some reason it doesnt send the string. here it prints out

# the error message "could not send string

$exp->send("password") or die "could not send string" ;

As written in the comments, the error message "could not send strnig" is written out to the screen. I have tried all the debugging levels available in the debug function, but i cant see why its not working, below are the output when running the code with debug level 1 for the debug function:

Code:

Spawned 'ssh -l exceed localhost uname -o'

        spawn id(3)

        Pid: 4374

        Tty: /dev/pts/3

 at /usr/local/share/perl/5.10.0/Expect.pm line 181

        Expect::spawn('Expect=GLOB(0xa006ae8)', 'ssh -l exceed localhost uname -o') called at expect3.pl line 16

Starting EXPECT pattern matching...

 at /usr/local/share/perl/5.10.0/Expect.pm line 561

        Expect::expect('Expect=GLOB(0xa006ae8)', 5, 'exceed@localhost\'s password:') called at expect3.pl line 22

exceed@localhost's password: could not send string at expect3.pl line 26.

Closing spawn id(3).

 at /usr/local/share/perl/5.10.0/Expect.pm line 1431

        Expect::hard_close('Expect=GLOB(0xa006ae8)') called at /usr/local/share/perl/5.10.0/Expect.pm line 1621

        Expect::DESTROY('Expect=GLOB(0xa006ae8)') called at expect3.pl line 26

        eval {...} called at expect3.pl line 26

spawn id(3) closed.

Pid 4374 of spawn id(3) terminated, Status: 0x01

I also ran an strace on the process and i got the following output:

Code:

Process 4374 attached - interrupt to quit

read(4, "t"..., 1)                      = 1

read(4, "i"..., 1)                      = 1

read(4, "g"..., 1)                      = 1

read(4, "e"..., 1)                      = 1

read(4, "r"..., 1)                      = 1

read(4, "1"..., 1)                      = 1

read(4, "2"..., 1)                      = 1

read(4, "3"..., 1)                      = 1

read(4, ""..., 1)                      = 0

--- SIGHUP (Hangup) @ 0 (0) ---

--- SIGCONT (Continued) @ 0 (0) ---

sigreturn()                            = ? (mask now [])

write(4, "\n"..., 1)                    = -1 EIO (Input/output error)

rt_sigaction(SIGALRM, {SIG_DFL}, NULL, 8) = 0

rt_sigaction(SIGHUP, {SIG_DFL}, NULL, 8) = 0

rt_sigaction(SIGINT, {SIG_DFL}, NULL, 8) = 0

rt_sigaction(SIGQUIT, {SIG_DFL}, NULL, 8) = 0

rt_sigaction(SIGPIPE, {SIG_IGN}, NULL, 8) = 0

rt_sigaction(SIGTERM, {SIG_DFL}, NULL, 8) = 0

rt_sigaction(SIGTSTP, {SIG_DFL}, NULL, 8) = 0

rt_sigaction(SIGTTIN, {SIG_DFL}, NULL, 8) = 0

close(4)                                = 0

kill(4374, SIGHUP)                      = 0

--- SIGHUP (Hangup) @ 0 (0) ---

Process 4374 detached

When i run "ssh -l exceed localhost uname -o" from the command-line it works without any problems, so i dont know what that I/O error is all about.

Is there anyone that can see any errors with the code ? Its not sending the string to the spawned command. Thanks for any help, it appriciated.