Re: array or array ref as variable

[GrandFather]

Having looked over your conversation with HelenCr, I think a slight step back is in order to focus on the key issue. The following code mocks up a solution to the issue of passing in a "module reference" to a "collection" sub to get some work done:

#!/usr/bin/env perl
use warnings;
use strict;

package FW;

sub extract {
    return "It's a FW";
}

package VRF;

sub extract {
    return "It's a VRF";
}

package main;

my @fw = collect('fw');
my @vrf = collect('vrf');

print "$_\n" for @fw, @vrf;

sub collect {
    my ($type) = @_;
    my $module = uc $type;
    
    return $module->extract();
}

Prints:

It's a FW
It's a VRF

The key is that if you want to call a function in a module you can use the syntax $modulename->function() to make the call.

[HelenCr]

Thank you, GrandFather.

So, in other words, are you saying that this should work?:

my @arr_methods = ([ \@fw, 'NT::FW', 'FW'], [\@vrf, 'NT::VRF', 'VRF'],
+ [\@vlan
+, 'NT::VLAN', 'VLAN'], [ \@portchannel, 'NT::PORTCHANNEL', 'PORTCHANN
+EL'] );

    foreach (@arr_methods) {
        @{$_->[0]} = $_->[1]->extract( &slurpFile($CFG{$CFG{$_->[2]}} 
+), %CFG)
+;
    }