expectperl-discuss Mailing List for Expect.pm

Hello all,

I've used the "real" expect for a number of years, and now find myself
having to do some stuff w/ perl-expect.

Is there a way to capture text w/ () in the expect of perl like you can
w/ expect?

For example the following bit of expect code will grab the hostname of
the device you've logged into and store it in a variable called hostname:
expect {
 -re "\n+(.*}>"
}
set hostname $expect_out(1,string)

The $expect_out(1,string) grabs what is inside the () in the expect
statement. Like a backrefrence \1 in a regexp.

Is there a way to do the same thing w/ perl expect?

Thanks in advance.
Sean

I've got a program that ssh's into a storage array and issues a query to get
some information about devices. 

The command executes and displays some number of lines, and then depending
on the number of device either gives back a prompt '# ' after displaying the
devices, or prompts the user to hit a key with the following string: 'Press
any key to continue (Q to quit)'

I am never able to successfully match on the 'Press any key to continue (Q
to quit)'... I never make it into that sub routine, and eventually fail. the
log file shows a '^@ at the end of the Press any key string, I'm not sure
why, but tried to match on it. Any suggestions would be appreciated. Thanks.

here's a snippet:

 $ssh_exp->send("$command");
 $ssh_exp->debug(3);
 $ssh_exp->expect( $GLOBAL_TIMEOUT ,
		   [ qr/Press any key to continue \(Q to quit\)\^\@$/ => sub {
		       print("Got a press any key to continue\n");
		       my $fh = shift;
		       #$ssh_exp->send("N");
		       $fh->send("BITEME\r");
		       exp_continue;
		     }
		   ] ,
		   [ '# $',
		     sub {
		       print("Got a prompt back\n");
		     }
		   ]
		  );
  print("Sleeping\n");
  sleep(5);


here is the output which is logged to a file:

# show disks encl
Status Encl Slot Vendor  Model              Serial#                 
Size(GB)
------------------------------------------------------------------------------
Up     0    0    ATA     HDS725050KLA360    KRVN65ZAJAUR1F           500
Up     0    1    ATA     HDS725050KLA360    KRVN65ZAJAY5HF           500
Up     0    2    ATA     HDS725050KLA360    KRVN65ZAJAUSLF           500
Up     0    3    ATA     HDS725050KLA360    KRVN65ZAJAV1LF           500
Up     0    4    ATA     HDS725050KLA360    KRVN65ZAJAUUNF           500
Up     0    5    ATA     HDS725050KLA360    KRVN65ZAJ9RH6F           500
Up     0    6    ATA     HDS725050KLA360    KRVN65ZAJAV6YF           500
Up     0    7    ATA     HDS725050KLA360    KRVN65ZAJAUUEF           500
Up     0    8    ATA     HDS725050KLA360    KRVN65ZAJAT3ZF           500
Up     0    9    ATA     HDS725050KLA360    KRVN65ZAJASBEF           500
Up     0    10   ATA     HDS725050KLA360    KRVN65ZAJAV09F           500
Up     0    11   ATA     HDS725050KLA360    KRVN65ZAJAY1WF           500
Up     1    0    ATA     HDS725050KLA360    KRVN65ZAJARLWF           500
Up     1    1    ATA     HDS725050KLA360    KRVN65ZAJAY06F           500
Up     1    2    ATA     HDS725050KLA360    KRVN65ZAJAT8HF           500
Up     1    3    ATA     HDS725050KLA360    KRVN65ZAJAY3DF           500
Up     1    4    ATA     HDS725050KLA360    KRVN65ZAJAT04F           500
Up     1    5    ATA     HDS725050KLA360    KRVN65ZAJAV4HF           500
Up     1    6    ATA     HDS725050KLA360    KRVN65ZAJAT20F           500
Up     1    7    ATA     HDS725050KLA360    KRVN65ZAJAY2HF           500
Up     1    8    ATA     HDS725050KLA360    KRVN65ZAJASHXF           500
Press any key to continue (Q to quit)^@
-- 
View this message in context: http://www.nabble.com/problem-with-expect-pattern-match-tf3640813.html#a10168043
Sent from the Perl - Expectperl-Discuss mailing list archive at Nabble.com.

hi ,

Can any one tell me how to use Expect on MAC OS .
It will be very help full for me.

Thanx & regards
kapil

The qr/^($promptRE)/ in the code below only matches a prompt at the
start of a line (which is what my application needs).  You need to
remove the ^ from below to match partial words like assword or login

^ogin = "ogin" at start of line.
ogin  = ogin anywhere in the string (no ^ anchor).

Ronald's code definitely works here :-)

J.


> $spawn=Expect->spawn("ssh $username\@$host /downloads/test.ksh\n");
> my %Hash=();
> #$Hash{'yes'}='yes';
> $Hash{'ogin'}='siva';
> $Hash{'ssword'}='corvino';
> $Hash{'Name'}='siva'; # The values for the remote command -
> /downloads/test.ksh
> $Hash{'Age'}='22';    # The values for the remote command -
> /downloads/test.ksh
> my $promptRE = join("|", keys %Hash);
> print "-- $promptRE ---";
> $spawn->expect(10,
>   [
>     qr/^($promptRE)/,
>       sub {
>         $spawn = shift;
>         my $prompt = ($spawn->matchlist())[0];
>         $spawn->send($args{$prompt}, "\n");
>         exp_continue;
>       }
>   ],
> );

Hi Roland,

I have another problem here. When I execute the following piece of code 
using ssh, the initial print message is not displayed; its directly going 
to the getc function and waiting for the user input first and prints the 
 message.

This is that code segment that need to be executed on the remote 
server. I can't modify this code because it's part of Oracle cloning script.

#!/usr/bin/perl
## Asks for Apps password
#
print("Enter the APPS password [APPS]:\n"); ## This line is not coming 
when try to execute on remote machine using ssh
my $key="";
my $PWD="";
while ($key ne "\n") {
  $key = getc();
  $PWD = "$PWD" . "$key";
}
chomp ( $PWD );
if ( $PWD eq "") {
  $PWD ="APPS";
}
print "Password is - $PWD\n";
=============
Output of the script when I use ssh manually.
[odba@odba downloads]$ ssh  devap@odevap /home/devap/test.pl
oracle
Enter the APPS password [APPS]:    ####This line should have first and wait
for the user input
Password is - oracle
[odba@odba downloads]$ 
=============
If I execute the script on the remote machine, it works fine. But, not 
with ssh command.
Because of this problem, I am not able to automate the cloning using 
Expect.pm.  I have spent lot of time on this and finally I have use 
Telnet.pm with SSH to handle the automation. I find Expect more easier than
Telnet. 
I am sure you will have a solution for this. 
Please let me know your feedback on this.

Thanks for your help again,
Siva.


Roland Giersig wrote:
> 
> set up public key authentication so ssh doesn't ask for the password.
> also, set Expect::Exp_Internal=1 so you can see what gets received and
> matched.
> 
> hope this helps,
> 
> roland
> 
> On 3/28/07, cpsiva <cp...@ya...> wrote:
>>
>> Hi Roland,
>>
>> I tried using this method, but its not working for me.
>> Could you pls tell me what is wrong with this code?
>>
>> I am actually working on automating Oracle cloning scripts remotely which
>> will have many user prompts.
>>
>> ...
>> $spawn=Expect->spawn("ssh $username\@$host /downloads/test.ksh\n");
>> my %Hash=();
>> #$Hash{'yes'}='yes';
>> $Hash{'ogin'}='siva';
>> $Hash{'ssword'}='corvino';
>> $Hash{'Name'}='siva'; # The values for the remote command -
>> /downloads/test.ksh
>> $Hash{'Age'}='22';    # The values for the remote command -
>> /downloads/test.ksh
>> my $promptRE = join("|", keys %Hash);
>> print "-- $promptRE ---";
>> $spawn->expect(10,
>>   [
>>     qr/^($promptRE)/,
>>       sub {
>>         $spawn = shift;
>>         my $prompt = ($spawn->matchlist())[0];
>>         $spawn->send($args{$prompt}, "\n");
>>         exp_continue;
>>       }
>>   ],
>> );
>> ---
>> [odba@odba downloads]$ perl ssh.pl odba siva corvino
>> -- Age|ssword|Name|ogin ---siva@odba's password:
>> ----------
>> HEre password is not getting passed and so are the remaining prompts .
>> This is what I am getting when I run the script using ssh manually.
>> ----------------------
>> [odba@odba downloads]$ ssh siva@odba /downloads/test.ksh
>> ssh siva@odba /downloads/test.ksh
>> siva@odba's password:
>> Enter Name
>> siva
>> line 1
>> line 2
>> Enter Age 29
>> Your Name siva
>> Your Age 29
>> [odba@odba downloads]$
>> ======================
>>
>> Thanks for your help!
>> -Siva
>>
>> Roland Giersig wrote:
>> >
>> > how about
>> >
>> > my $promptRE = join("|", keys %args);
>> >
>> > $exp->expect($timeout,
>> >   [
>> >     qr/^($promptRE) /,
>> >       sub {
>> >         $self = shift;
>> >         my $prompt = ($self->matchlist())[0];
>> >         $self ->send($args{$prompt}, "\n");
>> >         exp_continue
>> >       }
>> >   ],
>> > );
>> >
>> > to use a list of responses in the hash to be able to handle multiple
>> > occurances of the same prompt is left as an exercise to the reader...
>> > :-)
>> >
>> >
>> > On 3/20/07, John Bradshaw (Lists) <li...@jo...> wrote:
>> >> Hi all,
>> >>
>> >> Trying to drive an interactive session with some telecomms kit. It's a
>> >> very simple interface - it gives a series of fixed prompts to which
>> the
>> >> user enters a response, nothing fancy but quite tedious.
>> >>
>> >> I have a Perl hash with the prompts as keys and the responses as the
>> >> hashed values.
>> >>
>> >> Example of a session...
>> >> REQ NEW
>> >> TYPE TIE
>> >> CUST 0
>> >> ...
>> >> where REQ, TYPE and CUST are the kit's prompts - always on a new line
>> >> ending with a space.  NEW, TIE and 0 are the corresponding responses.
>> >>
>> >> So the draft code is...
>> >>
>> >> $exp->expect($timeout,
>> >>   [
>> >>     qr/^REQ /,
>> >>       sub {
>> >>         $self = shift;
>> >>         $self ->send($args{"REQ"}, "\n");
>> >>         exp_continue
>> >>       }
>> >>   ],
>> >>   [
>> >>     qr/^TYPE /,
>> >>       sub {
>> >>         $self = shift;
>> >>         $self ->send($args{"TYPE"}, "\n");
>> >>         exp_continue;
>> >>       }
>> >>   ],
>> >>   [
>> >>     qr/^CUST /,
>> >>       sub {
>> >>         $self = shift;
>> >>         $self ->send($args{"CUST"}, "\n");
>> >>         exp_continue;
>> >>       }
>> >>   ],
>> >> # Hundreds more patterns here...
>> >> ...
>> >> ...
>> >> );
>> >>
>> >> This works fine however I'd like to build the expect loop during
>> >> execution using the %args hash as it's easier to add hash pairs than
>> >> have to modify code when a new prompt appears.
>> >>
>> >> Is this supported with Expect.pm? If so, any hints on the best way to
>> >> code this?
>> >>
>> >> Thanks,
>> >> John.
>> >>
>> >>
>> >>
>> >>
>> -------------------------------------------------------------------------
>> >> Take Surveys. Earn Cash. Influence the Future of IT
>> >> Join SourceForge.net's Techsay panel and you'll get the chance to
>> share
>> >> your
>> >> opinions on IT & business topics through brief surveys-and earn cash
>> >>
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> >> _______________________________________________
>> >> Expectperl-discuss mailing list
>> >> Exp...@li...
>> >> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>> >>
>> >
>> >
>> -------------------------------------------------------------------------
>> > Take Surveys. Earn Cash. Influence the Future of IT
>> > Join SourceForge.net's Techsay panel and you'll get the chance to share
>> > your
>> > opinions on IT & business topics through brief surveys-and earn cash
>> >
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> > _______________________________________________
>> > Expectperl-discuss mailing list
>> > Exp...@li...
>> > https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>> >
>> >
>>
>> --
>> View this message in context:
>> http://www.nabble.com/Using-a-hash-to-store-prompts---responses--tf3430547.html#a9704604
>> Sent from the Perl - Expectperl-Discuss mailing list archive at
>> Nabble.com.
>>
>>
>> -------------------------------------------------------------------------
>> Take Surveys. Earn Cash. Influence the Future of IT
>> Join SourceForge.net's Techsay panel and you'll get the chance to share
>> your
>> opinions on IT & business topics through brief surveys-and earn cash
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> _______________________________________________
>> Expectperl-discuss mailing list
>> Exp...@li...
>> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>>
> 
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share
> your
> opinions on IT & business topics through brief surveys-and earn cash
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> 
> 

-- 
View this message in context: http://www.nabble.com/Using-a-hash-to-store-prompts---responses--tf3430547.html#a9826402
Sent from the Perl - Expectperl-Discuss mailing list archive at Nabble.com.