Question

我正在尝试从输出中获取csv文件。

 use Net::Cisco::ISE;
 use Data::Dumper;
 use Text::CSV;

 my $ise = Net::Cisco::ISE->new(hostname=>'hostname', username=>'user', password=>'user');  
 $ise->namespace3;
 $ise->namespace5;

 my $networkdevices = $ise->networkdevices;
 for my $name (keys %{$networkdevices})
    {
       print   Dumper $ise->networkdevices("id" => $networkdevices->{$name}->id);
    }

输出：

     $VAR1 = bless( {
             'NetworkDeviceGroupList' => {
                                           'NetworkDeviceGroup' => [
                                                                   'Device Type#All Device Types',
                                                                   'IPSEC#Is IPSEC Device#No',
                                                                   'Location#All Locations'
                                                                 ]
                                         },
             'tacacsSettings' => {
                                   'previousSharedSecretExpiry' => '0',
                                   'connectModeOptions' => 'OFF',
                                   'sharedSecret' => '******'
                                 },
             'NetworkDeviceIPList' => {
                                        'NetworkDeviceIP' => {
                                                             'mask' => '24',
                                                             'ipaddress' => '10.66.0.0'
                                                           }
                                      },
             'name' => 'LAB-Distri',
             'coaPort' => '1700',
             'authenticationSettings' => {
                                           'radiusSharedSecret' => '******',
                                           'keyInputFormat' => 'ASCII',
                                           'enableKeyWrap' => 'false',
                                           'networkProtocol' => 'RADIUS'
                                         },
             'profileName' => 'Cisco',
             'id' => '3d21e200-a534-11e3-82cc-00505694f123'
           }, 'Net::Cisco::ISE::NetworkDevice' );

这个脚本应该在控制台中给我我的wiched元素（ipadress和名字），但它不起作用

   foreach $name (keys %{$networkdevices}){
   print  
   my $ip = $networkdevices{$name}{'ipaddress'};
   my $name = $networkdevices{$name}{'name'};
   }

最后，我需要一个带有设备名称和IP地址的csv文件。

现在我只使用两种方法：Name和NetworkDeviceIPList（只是为了清理输出信息）。不幸的是Net::Cisco::ISE只有IPs才能获得ips。我可以致电NetworkDeviceIPList并获取：

 for my $name (keys %{$networkdevices}){
 my $device = $ise->networkdevices("id" => $networkdevices->{$name}->id);
 print Dumper $device->name;
 print Dumper $device->NetworkDeviceIPList;
 }

我有这个输出：

 $VAR1 = 'LAB-W';
 $VAR1 = {
    'NetworkDeviceIP' => {
    'mask' => '32',
    'ipaddress' => '10.66.1.12'
  }
  };

但是我不知道如何从这个带有名称和ips数组的输出csv数据中获取。

Answer 1

Dumper输出以“ bless ”开头，因此您手头有对象，因此需要找到查询它们的方法，而不是直接戳入它们的hashref。

来自Net::Cisco::ISE docs ^*

<强> networkdevices

返回的哈希包含Net::Cisco::ISE::NetworkDevice ...的实例   ...
  当您知道主机名或ID时，请使用带有下列参数的devices调用。

标识返回对象所属的类，并继续举例

my $device = $ise->networkdevices("id","123");

然后查看Net::Cisco::ISE::NetworkDevice上要使用$device的方法。

所以而不是

my $ip = $networkdevices{$name}{'ipaddress'}; # etc

如上所述使用$ise->networkdevices并在返回的对象上进行进一步的方法调用。 ^†

注意

对象是一个引用，通常是一个哈希引用，一个可以确实使用它。然而，这不好，它有麻烦，应该永远不会完成。

每一个进入对象内部的人最终可能会破坏程序，并且可能以微妙的方式破坏（发现）该业务的性质。

请记住，关于类的重要一点是为其功能提供接口并保护内部任何义务;它封装了实现，因此原则上它对用户是不可见的。内部可能会在任何时候发生变化，没有任何通知，也许会以微妙的方式发生变化。

应该总是找到为该类提供的方法，并且只使用这些方法。

^*这个CPAN页面的细节似乎要少得多

^†即使您要直接从$networkdevices检索值，它也是一个hashref，因此需要首先解除引用，$networkdevices->{...}{...}在第一级之后我们可以取消引用确实通过syntax convenience放下箭头。（但请不要对象使用。）

来自散列perl的CSV文件

1 个答案: