使用perl这个模块Net::Telnet::Cisco怎么能获取到设备的名称

jtyun

使用perl这个模块Net::Telnet::Cisco怎么能获取到设备的名称
如果想获取到设备名称程序应该怎么写？请大家指点，谢谢！！

laputa73

可以从命令行提示符截取
可以show conf | in hostname得到
你可以尝试用这个模块的prompt或者last_prompt来截取

jtyun

能给个取的例子吗？

kofpet

use Net::Telnet::Cisco;

  my $session = Net::Telnet::Cisco->new(Host => '123.123.123.123');
  $session->login('login', 'password');

  # Execute a command
  my @output = $session->cmd('show version');
  print @output;

  # Enable mode
  if ($session->enable("enable_password") ) {
      @output = $session->cmd('show privilege');
      print "My privileges: @output\n";
  } else {
      warn "Can't enable: " . $session->errmsg;
  }

  $session->close;


这是cpan上的面的例，挺简单的

jtyun

关键是怎么取设备名称，比如Route# show running   
我想实现的是吧Route取出来

kofpet

那你要查一下交换机的命令，show run | in hostname 把信息抓取出来，再使用正则把想要的数据从数组里面一行一行的读入匹配。

watchthinker

用snmp取回来试过吗