如何在 Perl 5.8 中使用 Net::Telnet::Cisco 忽略警告？

Question

我安装了。 Perl 5.8 中的 Net::telnet::cisco 模块并尝试执行以下操作：

my $session = Net::Telnet::Cisco->new(Host=>'192.168.1.1',Ignore_warnings=>1);

但这似乎不起作用并给出以下错误：

bad named parameter "Ignore_warnings" given to Net::Telnet::Cisco::new()

任何想法是什么问题？

Answer 1

把它分开：

my $session = Net::Telnet::Cisco->new(Host => $host);
$session->ignore_warnings(1);

在我看来就像 NTC 中的一个错误。我希望它应该在调用 SUPER::new 之前从列表中删除其参数。