[Expectperl-discuss] problem with using the expect.pm moodule.

[Prasad J. <pra...@sy...>]

Hi All,

I am running in to a problem which is something I am not able to understand.

Here, is the part of code.

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  my @match_patterns ;

    push (@match_patterns, 'Enter the system names separated by spaces
on which to install \w+' ) ;
    push (@match_patterns, 'Enter a \w+ license key for \w+' );
    push (@match_patterns, "Do you want to enter another license key" ) ;
    push (@match_patterns, "Select the rpms to be installed" ) ;
    push (@match_patterns, "Press [Enter] to continue" ) ;
    push (@match_patterns, "Are you ready to configure" ) ;
    push (@match_patterns, "Will you be configuring I/O Fencing" ) ;
    push (@match_patterns, "Enter the unique cluster name" ) ;
    push (@match_patterns, "Enter the unique Cluster ID" ) ;
    push (@match_patterns, "Enter the NIC for the first private
heartbeat link" ) ;
    push (@match_patterns, 'Are you sure you want to use \w+ for the
first private heartbeat link' ) ;
    push (@match_patterns, "Would you like to configure a second private
heartbeat link" ) ;
    push (@match_patterns, "Enter the NIC for the low priority heartbeat
link" ) ;
    push (@match_patterns, "Are you using the same NICs for private
heartbeat links on all systems" ) ;
    push (@match_patterns, "Is this information correct" ) ;
    push (@match_patterns, "Do you want to set up the enclosure-based
naming scheme" ) ;
    push (@match_patterns, "Do you want to set up a default disk group
for each system" ) ;
    push (@match_patterns, "Is the fully qualified hostname of system" ) ;
    push (@match_patterns, "Enable Storage Foundation Management Server
Management" ) ;

    my $timeout = 1000 ;
    my $expect = $cluster->getExpect ($hosts[0]);
    $expect->expect($timeout, '-re', "MyPrompt>");
    $expect->send("ls -l\r");
    $expect->expect($timeout, '-re', "MyPrompt>");
    $expect->send ( "cd $buildarea\r" ) ;  
    $expect->expect($timeout, '-re', "MyPrompt>");
    $expect->send ( "./installsfcfs\r" ) ; 


while (1)
{
    my ( $matched_pattern_pos, $error, $matched_string, $before_match,
$after_match)  = $expect->expect( $timeout, '-re', @match_patterns ) ;
    $testEc->log ( "\n\nMatched String : $matched_string\n\n" ) ;
    $testEc->log ( "\n\nMatched String : ", $matched_string, "\n\n" ) ;
}
<<<<<<<<<<<<<<<<<<

The first line the  "./installsfcfs" script prints is   "Enter the
system names separated by spaces on which to install SFCFS:", now the
problem is

$testEc->log ( "\n\nMatched String : $matched_string\n\n" ) ;   ===> is
printing following message in the log files.
Matched String : Enter the system names separated by spaces on which to
install SFCFS

and

$testEc->log ( "\n\nMatched String : ", $matched_string, "\n\n" ) ; ==>
is printing
Matched String :

This is something unexpected behavior,  I am not getting why the
variable      $matched_string      is getting printed only if it is
included in the quotes.

I think I am doing something wrong here, so Please help?

Thanks and Regards,
Prasad.