topic Re: Utilizing the Expect Module in a Perl Script in Operating System - Linux

Utilizing the Expect Module in a Perl Script

Stephen_175 — Wed, 14 Dec 2005 09:43:45 GMT

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.

Re: Utilizing the Expect Module in a Perl Script

Peter Godron — Wed, 14 Dec 2005 10:44:48 GMT

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

Re: Utilizing the Expect Module in a Perl Script

David Bellamy — Tue, 20 Dec 2005 19:57:47 GMT

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

Re: Utilizing the Expect Module in a Perl Script

Peter Godron — Thu, 22 Dec 2005 02:33:47 GMT

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