调用从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脚本，它不叫expect脚本.. 有什么我在想念提前

谢谢..

Answer 1

我建议你用system qw(expect ./a.exp);替换system "./a.exp ";

或者，你应该检查你的执行目录是否允许你引用./a.exp。