- 论坛徽章:
- 0
|
纯expect 是没有问题,可以执行到While 里面的语句的,
#!/usr/bin/expect -f
if { $argc != 3 } {
send_user "usage: get_hwrtne_conf.exp ip user password\n"
exit
}
set timeout 1
set TERM ANSI
set SERVER [lindex $argv 0]
set USERNAME [lindex $argv 1]
set PASSWD [lindex $argv 2]
spawn telnet
expect "telnet> "
send "open $SERVER\r"
sleep 1
expect "login:"
send "$USERNAME\r"
sleep 1
expect " assword:"
send "$PASSWD\r"
sleep 1
expect "*>"
send "show product-info\r"
while (1) {
sleep 1
expect {
"*MORE*" { send " " }
"*>" { break }
}
}
send "quit\r"
interact
|
Perl 脚本:
use Expect;
use strict;
my $exp = new Expect;
sleep(1);
$exp->raw_pty(1);
#$exp->log_stdout(0);
my $exp = Expect->spawn("telnet 192.168.1.1" ;
$exp->exp_internal(1);
$exp->debug(3);
$exp->log_file("out","w";
sleep(2);
$exp->send("root\n";
sleep(1);
$exp->expect("assword";
sleep(1);
$exp->send("password\n";
$exp->expect("cli>";
sleep(1);
$exp->send("show product-info\n";
while(1){
sleep(1);
print "<--=\n";
$exp->expect( [ qr/--MORE--/i,sub{
my $self =shift;
$self->send_slow(" ";
exp_continue; } ],
[qr'cli>',{ last } ]);
}
#$exp->debug();
$exp->soft_close();
问题:
(1)Perl的脚本就无法执行到While(1),我觉得很奇怪,
(2) 下面这个问题不知道是啥错误
at /usr/local/share/perl/5.8.8/Expect.pm line 1264
Expect::print('Expect=GLOB(0x834e74 ',
Debug 信息:
Connected to 192.168.1.1.
Escape character is '^]'.
root
spawn id(5): Does `Trying 192.168.1.1...\r\nConnected to 192.168.1.1.\r\nEscape character is \'^]\'.\r\nroot\r\n'
match:
Sending 'password\n' to spawn id(5)
at /usr/local/share/perl/5.8.8/Expect.pm line 1264
Expect::print('Expect=GLOB(0x834e74', 'password\x{a}') called at ./expect_tst.pl line 22
Starting EXPECT pattern matching...
at /usr/local/share/perl/5.8.8/Expect.pm line 561
Expect::expect('Expect=GLOB(0x834e74', 'cli>') called at ./expect_tst.pl line 24
spawn id(5): list of patterns:
spawn id(5): Does `Trying 192.168.1.1...\r\nConnected to 192.168.1.1.\r\nEscape character is \'^]\'.\r\nroot\r\n'
match:
BusyBox on localhost login: root
Password:
spawn id(5): Does `Trying 192.168.1.1...\r\nConnected to 192.168.1.1.\r\nEscape character is \'^]\'.\r\nroot\r\n\r\nBusyBox on localhost login: root\r\nPassword: '
match:
Sending 'show product-info\n' to spawn id(5)
at /usr/local/share/perl/5.8.8/Expect.pm line 1264
Expect::print('Expect=GLOB(0x834e74', 'show product-info\x{a}') called at ./expect_tst.pl line 26
<--=
Closing spawn id(5).
at /usr/local/share/perl/5.8.8/Expect.pm line 1354
Expect::soft_close('Expect=GLOB(0x834e74') called at ./expect_tst.pl line 42
DSL Modem CLI
Copyright (c) 2004 Texas Instruments, Inc.
cli> show product-info
Product Information
Model Number : AR7WRD
HW Revision : 01000008-02010202
Serial Number : none
USB PID : N/A
USB VID : N/A
Ethernet MAC : 00:08:5C:7B:9B:78
DSL MAC : 00:08:5C:7B:9B:7A
USB MAC : N/A
USB Host MAC : N/A
AP MAC : 00:08:5C:7B:9B:79
Software Versions
Gateway : 3.7.0B
ATM Driver : 20.1 (6.00.01.00-370B.060526)
DSL HAL : 6.00.01.00
DSL Datapump : 6.00.04.00 Annex A
SAR HAL : 01.07.2b
PDSP Firmware : 0.54
--MORE--Timed out waiting for an EOF from spawn id(5).
spawn id(5) closed.
Pid 12929 of spawn id(5) exited, Status: 0x01
Closing spawn id(5).
at /usr/local/share/perl/5.8.8/Expect.pm line 1431
Expect::hard_close('Expect=GLOB(0x834e74') called at /usr/local/share/perl/5.8.8/Expect.pm line 1621
Expect: ESTROY('Expect=GLOB(0x834e74') called at ./expect_tst.pl line 0
eval {...} called at ./expect_tst.pl line 0
[ 本帖最后由 mantou 于 2009-6-7 04:02 编辑 ] |
|
免费注册
发表于 2009-06-06 22:30
