用perl expect中可以使用变量吗？

zljjg2000

#!/usr/local/bin/perl
use Expect;
my $exp = new Expect;
sleep(1);
$exp->raw_pty(0);               
exp->stty();
$exp->exp_internal(1);
$exp->log_stdout(1);
$exp->debug(3);
my $exp = Expect->spawn("telnet 10.20.26.214");
$list[1]="1";
$list[2]="2";
$exp->send_slow(1,"interface adsl $list[1]/$list[2]\n ");
.....
可是程序执行时，并没有取到$list[1]和$list[2]的值，请问在expect里，不能使用变量吗？
谢谢！

apile

换个作法..试试看....
$cmd = "interface adsl ".$list[1]."/".$list[2]."\n";
然後
$exp->send_slow(1,$cmd);

zljjg2000

可以了，谢谢！原来不是变量不能使用，而是我程序前面的log_file使用方法不当导致变量没有取到值，
呵呵，谢谢apile。