Expect模块登录LINUX主机问题？

鲤鱼馒头

这个脚本为啥不能登录主机呢？问题出在什么地方呢？

另外登录以后，测试远程主机是否存在某目录，有则继续执行expect脚本怎么写啊？

#!/usr/bin/perl use Expect; my $IP=$ARGV[0]; my $passwd='mima'; my $cmd=ls; my $exp = Expect->spawn(ssh, $IP) or die("can not spawning") ; $exp->expect(1,               [ qr/(yes\/no)?/i, sub { my $self = shift;                                        $self->send("yes\n");                                        exp_continue; }],               [ qr/password:/i, sub { my $self = shift;                                        $self->send("$passwd\n");                                        exp_continue; }],               $cmd); $exp->soft_close(); exit 0;

[ 本帖最后由 鲤鱼馒头 于 2008-4-24 01:26 编辑 ]

Lonki

1秒太短了

另外, 提示了什么?

鲤鱼馒头

执行以后嘛显示也没有

[ 本帖最后由 鲤鱼馒头 于 2008-4-23 21:29 编辑 ]

smonkey0

这个包windows上好像装不上？

鲤鱼馒头

需要IO::TRY好像

鲤鱼馒头

另外登录以后，测试远程主机是否存在某目录，有则继续执行expect脚本怎么写啊？

apile

你没有匹配 Prompt字符..例如
\$ $
或
\# $
当然一登入後就跳出来了..
$cmd永远不会执行...
找找旧帖..有很多人贴过类似的代码...

鲤鱼馒头

$cmd 我知道写错了

\$ $或\# $ 不太明白，另外无论加不加$cmd 脚本都是运行以后没有任何显示，而不是登入後就跳出来了