用perl expect可以实现连续telnet吗？

zljjg2000

我用perl expect可以实现telnet一台主机，但是可以在这个telnet session没有断开之前，再由被
telnet的主机发出新的telnet吗？
举例：
my $exp = Expect->spawn("telnet 1.1.1.1");

                 $exp->send("aaaa\n");
                 $exp->expect("password:");
                 $exp->send("bbbb\n");
                 sleep(1);
                 #$exp-> expect("#");
                 $exp->send("telnet 2.2.2.2\n");
                 $exp->expect("Connected");
                 $exp->send("root\n");
                 $exp->expect("Password ");
这个例子我执行后，发现第二次的telnet 2.2.2.2 没有成功，请问高手：问题出现在哪里？谢谢！

ulmer

原帖由 zljjg2000 于 2006-7-25 17:06 发表
我用perl expect可以实现telnet一台主机，但是可以在这个telnet session没有断开之前，再由被
telnet的主机发出新的telnet吗？
举例：
my $exp = Expect->spawn("telnet 1.1.1.1");

          ...

Try to use :
1.  $exp->soft_close(); or $exp->hard_close();
2. or use two OOPs variables:
    $exp1= Expect->spawn("telnet 1.1.1.1");
    $exp2 = Expect->spawn("telnet 2.2.2.2");

zljjg2000

谢谢，不过还不是我需要的答案。
第二次telnet是必须从第一台被telnet的主机发起的，而不是同时开两个telnet进程到两个主机，能再考虑一下吗？
非常感谢技术支持。

apile

why not?
Expect is a very powerful language...

Just use...
$exp->send("telnet secondIP\n");

zljjg2000

我的程序如下：
#!/usr/local/bin/perl
require ("/usr/local/lib/perl5/site_perl/5.8.5/Expect.pm");
use Net::Telnet;
print "Content-type:text/html\n\n";

use Expect;
my $exp = new Expect;
my $exp = Expect->spawn("telnet 1.1.1.1");

                 $exp->send("root\n");
                 $exp->expect("password:");
                 $exp->send("root\n");
                 sleep(1);
                 $exp->expect("#");
                 $exp->send("telnet 2.2.2.2\n");
                 $exp->expect("Connected");
                 $exp->send("root\n");
                 $exp->expect("Password ");
                 $exp->send("root\n");
                 $exp->expect(">");
                 $exp->send("en\n");
                 $exp->expect("#");
                 $exp->log_file("zzz","w");
                 $exp->send("show atmlan ip-access\n");
                 #$exp->log_file("zzz","w");
                 sleep(1);
                 $exp->log_file();
                 $exp->send("exit\n ");
                 $exp->send("exit\n ");
但是程序执行了第一次telnet 1.1.1.1之后，出现“＃”提示符后，等待了1秒之后，就程序中止了，没有继续执行第二次telnet 2.2.2.2 ，请问怎么回事啊？

zljjg2000

我采用了楼上的方法，在程序最后加了$exp->soft_close();终于可以连续telnet了，真不错，呵呵，
终于体会到前面的用意了。

fdsgsdfew

进来看看

西门土豆

路过，围观～