Languages and Scripting
Showing results for 
Search instead for 
Do you mean 

Utilizing the Expect Module in a Perl Script

Highlighted
Occasional Contributor

Utilizing the Expect Module in a Perl Script

I m having issues in correctly integrating the
Expect Module in my Perl Script below. Please advise. Thank you. Stephen

if ($radio_action eq "MOVEGENTS")
{
print "
\n";
system "/var/apache/cgi/bin/compare_gents_files.pl $julian_dt"
$command = Expect->spawn("Check the output above. Continue copying files ? (Y|N)")
unless ($command->expect(1, "y"));
}

I get these errors:
Scalar found where operator expected at ./payment_load_copy_orig_II.pl line 37, near "$command"
(Missing semicolon on previous line?)
syntax error at ./payment_load_copy_orig_II.pl line 37, near "$command "
Execution of ./payment_load_copy_orig_II.pl aborted due to compilation errors.
3 REPLIES
Honored Contributor Honored Contributor

Re: Utilizing the Expect Module in a Perl Script

Stephen,
isn't there a semicolon missing at the end of the $command line?
Should it not be ...(Y|N)");
Respected Contributor Respected Contributor

Re: Utilizing the Expect Module in a Perl Script

Stephen you are missing a semicolon at the end of the previous line.
Honored Contributor Honored Contributor

Re: Utilizing the Expect Module in a Perl Script

Stephen,
is this still a problem?
If it is, please update with new status.
Otherwise please assign points and close.