Advertisement
Guest User

Untitled

a guest
Jun 21st, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 3.14 KB | None | 0 0
  1. for my $node (@appliances){
  2.     (my $code, $port) = $rest->call( "GET", "node/$node/ports", {} );
  3.     push @ports, @{$port->{items}};
  4.   }
  5.  
  6.   print Dumper(@ports);
  7.   exit 1;
  8.  
  9. output
  10.  
  11. $VAR131 = {
  12.             'autocfg' => 0,
  13.             'segment' => 'segment-SCMGMT-9a9c47a3cacfadaf',
  14.             'capab_cluster' => 0,
  15.             'mgmt_enabled' => 0,
  16.             'capab_poe' => 0,
  17.             'mgmt_dns_ipv4' => undef,
  18.             'capab_uplink' => 0,
  19.             'speeds' => undef,
  20.             'ifname' => undef,
  21.             'autotrunk' => 1,
  22.             'capab_multizone' => 1,
  23.             'data_enabled' => 0,
  24.             'mgmt_ipv4' => undef,
  25.             'capab_vsh_aux' => 0,
  26.             'mac' => '6C:98:EB:01:8A:50',
  27.             'mgmt_config_type' => 'dhcpc',
  28.             'patchlabel' => undef,
  29.             'speed' => undef,
  30.             'capab_mgmt' => 0,
  31.             'portal' => undef,
  32.             'tagged' => 0,
  33.             'id' => 'port-53-741008f97bad25be',
  34.             'poe_disabled' => 0,
  35.             'virtual_mac' => undef,
  36.             'dcinterface' => undef,
  37.             'mgmt_gw_ipv6' => undef,
  38.             'switch_id' => 'KODIAK_LAN',
  39.             'port_id' => 'KODIAK_LAN53',
  40.             'vsh_aux_enabled' => 0,
  41.             'node' => 'node-bc3b30d74aef005f',
  42.             'mgmt_ipv6' => undef,
  43.             'type' => 'QSFP',
  44.             'cluster_enabled' => 0,
  45.             'uplink' => undef,
  46.             'capab_lan' => 1,
  47.             'mgmt_gw_ipv4' => undef,
  48.             'tag' => '53',
  49.             'vsh_primary_enabled' => 0,
  50.             'ha_mirrored_uplink' => '0',
  51.             'auto' => 0,
  52.             'bridge_with' => undef
  53.           };
  54. $VAR132 = {
  55.             'switch_id' => 'KODIAK_LAN',
  56.             'port_id' => 'KODIAK_LAN54',
  57.             'dcinterface' => undef,
  58.             'mgmt_gw_ipv6' => undef,
  59.             'node' => 'node-bc3b30d74aef005f',
  60.             'vsh_aux_enabled' => 0,
  61.             'cluster_enabled' => 0,
  62.             'uplink' => undef,
  63.             'type' => 'QSFP',
  64.             'mgmt_ipv6' => undef,
  65.             'capab_lan' => 1,
  66.             'tag' => '54',
  67.             'mgmt_gw_ipv4' => undef,
  68.             'vsh_primary_enabled' => 0,
  69.             'ha_mirrored_uplink' => '0',
  70.             'bridge_with' => undef,
  71.             'auto' => 0,
  72.             'autocfg' => 0,
  73.             'segment' => 'segment-SCMGMT-9a9c47a3cacfadaf',
  74.             'capab_cluster' => 0,
  75.             'capab_poe' => 0,
  76.             'mgmt_enabled' => 0,
  77.             'capab_uplink' => 0,
  78.             'speeds' => undef,
  79.             'mgmt_dns_ipv4' => undef,
  80.             'ifname' => undef,
  81.             'data_enabled' => 0,
  82.             'capab_vsh_aux' => 0,
  83.             'mgmt_ipv4' => undef,
  84.             'autotrunk' => 1,
  85.             'capab_multizone' => 1,
  86.             'speed' => undef,
  87.             'capab_mgmt' => 0,
  88.             'portal' => undef,
  89.             'mac' => '6C:98:EB:01:8A:50',
  90.             'mgmt_config_type' => 'dhcpc',
  91.             'patchlabel' => undef,
  92.             'tagged' => 0,
  93.             'id' => 'port-54-636a2a917129796e',
  94.             'poe_disabled' => 0,
  95.             'virtual_mac' => undef
  96.           };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement