1# liuke432 发表于 2007-10-25 13:35

关于Net::Telnet 模块的一个问题.

我需要telnet到一款设备（innomedia）上，输入一些命令，配置一些参数。
但是只有第一个命令Cu管用，第二个p就不管用了,返回 Invalid Command。

提示符有： 空，UserID>, 等。不知是不是我的Prompt设置的不对。 请高手指教！   ：）

[Copy to clipboard] [ - ]
CODE:
#!/usr/local/bin/perl

use strict;
use Telnet();

my $ip = "10.90.1.230";

my $username = "Admin";
my $passwd = "password";

my $telnet = new Net::Telnet(Timeout => 10, Prompt => '/[\$%#>] $|[\$%#>]\s*/');
$telnet->open($ip);
$telnet->login($username,$passwd);
my @line1 = $telnet->cmd("Cu");
print @line1;               
my @line2 = $telnet->cmd("p");
print @line2;