Creating a Hash of Hashes 2

[netman4u]

Hello all,

I have the following config file I nees to load in a way that I can easily access the commands:

#
#
#  Vendor	Device		Commands
#
Foundry&	IMG&		show ip nat statistics,sho server sessions, , , , , , , ,
Foundry&	DLB&		sho server sessions, , , , , , , , ,
Cisco&		BSR&		, ,sho idb, , , , , , ,
Cisco&		CAT&		, ,sho idb, , , , , , ,
Cisco&		EGR&		, ,sho idb, , , , , , ,
Cisco&		EXT&		, ,sho idb, , , , , , ,
Cisco&		FER&		, ,sho idb, , , , , , ,
Cisco&		FVR&		, ,sho idb, , , , , , ,
Cisco&		GTA&		, ,sho idb, , , , , , ,
Cisco&		ILB&		, ,sho idb, , , , , , ,
Cisco&		MCR&		, ,sho idb, , , , , , ,
Cisco&		MSS&		, ,sho idb, , , , , , ,
Cisco&		NPA&		, ,sho idb, , , , , , ,
Cisco&		VRR&		, ,sho idb, , , , , , ,
Cisco&		XER&		, ,sho idb, , , , , , ,
Cisco&		SOR&		, ,sho idb, , , , , , ,
Cisco&		VRS&		, ,sho idb, , , , , , ,

I am trying to create a hash of hashes as below:

foreach(@cfg) {
	next if /^#/; 
	@tmp = split(/&/,$_);
	$tmp[1] =~ s/^\s+//;
        $tmp[1] =~ s/\s+$//;
	%cmd = ('$tmp[0]' => {'$tmp[1]' => '$tmp[2]'});
	my $hoh_cnt = scalar(keys(%cmd));
	@count = split(/,/,$tmp[1]);
}
print $cmd{'Foundry'}->{'IMG'};

However the print statement prints nothing. I am trying to access the commands for the "Vendor" and "Device" from my config file.

Any help is appriciated.

Nick

If at first you don't succeed, don't try skydiving.

 

[rharsh]

This might get you started:

my %HoH;

while (<DATA>) {
	next if /^\s*#/;
	chomp;
	my ($vender, $device, $rest) = split(/\s*\&\s*/, $_);
	if ($vender) {
		$HoH{$vender}->{$device} = $rest;
	}
}

__DATA__
#
#  Vendor    Device        Commands
#
Foundry&    IMG&        show ip nat statistics,sho server sessions, , , , , , , ,
Foundry&    DLB&        sho server sessions, , , , , , , , ,
Cisco&        BSR&        , ,sho idb, , , , , , ,
Cisco&        CAT&        , ,sho idb, , , , , , ,
Cisco&        EGR&        , ,sho idb, , , , , , ,
Cisco&        EXT&        , ,sho idb, , , , , , ,
Cisco&        FER&        , ,sho idb, , , , , , ,
Cisco&        FVR&        , ,sho idb, , , , , , ,
Cisco&        GTA&        , ,sho idb, , , , , , ,
Cisco&        ILB&        , ,sho idb, , , , , , ,
Cisco&        MCR&        , ,sho idb, , , , , , ,
Cisco&        MSS&        , ,sho idb, , , , , , ,
Cisco&        NPA&        , ,sho idb, , , , , , ,
Cisco&        VRR&        , ,sho idb, , , , , , ,
Cisco&        XER&        , ,sho idb, , , , , , ,
Cisco&        SOR&        , ,sho idb, , , , , , ,
Cisco&        VRS&        , ,sho idb, , , , , , ,

 

[netman4u]

Thanks rharsh, that did it. I think I am finally starting to get a handle on multi dimensional data structures.

If at first you don't succeed, don't try skydiving.

 

[rharsh]

Good, glad to help.

Have you looked through perldoc perldsc and perldoc perllol - those two docs have lots of information on data structures that you might find helpful.

 

[netman4u]

I have. It just seems like I have had some mental block in the past that prevented me from understanding the concept. Probably due to the fact that Perl is my first programming language and I only do Perl a month or two out of the year.

Thanks again.

Nick

If at first you don't succeed, don't try skydiving.

 

[stevexff]

Nick

The Data:umper module is invaluable when debugging multi-dimensional data structures, especially those that are produced by other modules like XML::Simple.

use Data::Dumper;
print Dumper(%HoH);

Gives a nice, indented, graphic representation (within the limitations of text-only output).

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]