Вызов ожидать скрипт на языке 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.