BladeSystem Forums have moved here
To make BladeSystem information easier to find, we have moved the BladeSystem forums here, to Servers and Operating Systems.
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

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

Re: Utilizing the Expect Module in a Perl Script

Stephen you are missing a semicolon at the end of the previous line.
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.