Help for this page

Select Code to Download


  1. or download this
      my (@fw, @vrf, @vlan, @portchannel);
  @fw = &collectData('fw', $CFG{$CFG{FW}});
  @vrf = &collectData('vrf', $CFG{$CFG{VRF}});
  @vlan = &collectData('vlan', $CFG{$CFG{VLAN}});
  @portchannel = &collectData('portchannel', $CFG{$CFG{PORTCHANNEL}});
  2. or download this
    sub collectData {
  my $str = shift;
...
          return;
return @array;
}