calling an expect script from perl script

Question

here is my perl script(a.pl)

#!/usr/bin/perl 
$logfile = "./a.log";
open(LOGFILE_Handle, ">$logfile")  or die "Error : Can not open $logfile !!! \n\n ";
print LOGFILE_Handle "a.pl:  1 "; 
system "./a.exp ";

here is my expect script(a.exp)

#!/opt/sfw/bin/expect -f
log_user 1;
set logfile "./a.log";
set LOGFILE_Handle [open "$logfile" "a" 0666]
puts $LOGFILE_Handle "a.exp: A" 
send_user "Hi";

while running, the perl script, it doesnt call expect script.. is there anything im missing

Thanks in advance..

have you considered using Perl Expect module instead? search.cpan.org/~rgiersig/Expect-1.15/Expect.pod — ghostdog74
– ghostdog74, Commented Oct 21, 2010 at 8:17

OMG_peanuts · Accepted Answer · 2010-10-21 10:03:35Z

2

I suggest you replace system "./a.exp "; with system qw(expect ./a.exp);

Alternatively, you should check that your execution directory allow you to refer to ./a.exp.

edited Oct 21, 2010 at 10:03

answered Oct 21, 2010 at 9:57

OMG_peanuts

1,8171 gold badge14 silver badges19 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

calling an expect script from perl script

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related