вызов сценария ожидания из сценария Perl

Question

вот мой скрипт на Perl (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 "; 

вот мой ожидаемый скрипт (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";

во время работы сценарий perl не вызывает ожидаемый сценарий .. Есть ли что-то, что я пропускаю

Заранее спасибо ..

Answer 1

Я предлагаю вам заменить system "./a.exp "; на system qw(expect ./a.exp);

В качестве альтернативы, вы должны проверить, что ваш каталог выполнения позволяет вам ссылаться на ./a.exp.