来自哈希 perl 的 CSV 文件答案

【问题标题】：CSV file from a hash perl来自哈希 perl 的 CSV 文件
【发布时间】：2018-01-19 14:34:48
【问题描述】：

我正在尝试从我的输出中获取 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 和 name），但它不起作用

   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'
  }
  };

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

【问题讨论】：

您使用的密钥与转储输出中的任何内容都不匹配。
在阅读代码之前，我可以说您应该始终使用use strict 和use warnings。你会避免很多错误;)
另外，您应该使用 2 print，使用您当前的代码，只会打印 $ip
我只是觉得这看起来与XML::Simple 的输出很相似。果然……是的！
提醒，请参阅What should I do when someone answers my question? 您的后续问题似乎已解决，但如果仍有问题，您可以提供反馈吗？

标签： perl csv data-dumper

【解决方案1】：

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

来自Net::Cisco::ISE docs ^&midast;

网络设备

返回的哈希包含 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 并在返回的对象上进行进一步的方法调用。 ^†

注意

一个对象是一个引用，通常是一个哈希引用，一个可以确实使用它。但是，这不好，麻烦不断，真的不应该做。

对对象内部结构的每一次尝试都可能最终使程序崩溃，并且根据该业务的性质，可能以难以诊断（发现）的微妙方式崩溃。

请记住，关于类的重要一点是为其功能提供接口并保护内部免受任何义务；它封装了实现，因此原则上它对用户是不可见的。内部结构可能随时发生变化，恕不另行通知，而且可能以微妙的方式发生变化。

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

^&midast;CPAN 页面的细节似乎少得多

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

【讨论】：