RE: Re: Multiple identical keys in a hash.

Replies are listed 'Best First'.
RE: RE: Re: Multiple identical keys in a hash. by ZZamboni (Curate) on Apr 24, 2000 at 18:13 UTC
You could put all the values in array references indexed by your two-level hash. Something like this: `foreach $f (@files) { open FILE, $f or die "Error: $!"; while(<FILE>) { chomp; my ($k,$v)=split("=",$_,2); # Assume dn= comes before other lines $level1=$k, next if $k eq "dn"; unless ($level1) { die "Need to get dn= line first\n"; } push @{$hash{$level1}{$k}}, $v; } close FILE; }` [download] Then you will have something like this: `$hash{machinename}{config}=["2000"] $hash{machinename}{speed}=["19200"] $hash{machinename}{setting}=["value1", "value2", "value3"] $hash{machinename2}{config}=["2020"] etc.` [download] And then do comparisons or anything else you need. See chapter 4 of The Perl Cookbook for examples of how to do fancy array operations, including comparisons.	[reply] [d/l] [select]
RE: RE: Re: Multiple identical keys in a hash. by BBQ (Curate) on Apr 24, 2000 at 20:13 UTC
If the machines have different names (assuming a normal network :o)), don't you just need to do this? (continued from ZZamboni's code) `foreach $f (@files) { open FILE, $f or die "Error: $!"; while(<FILE>) { chomp; my ($k,$v)=split("=",$_,2); # Assume dn= comes before other lines if ($k eq "dn") { push(@machines,$k); $machine = $k; } else { push(@{$machine}{$k},$v); } } close FILE; }` [download] In this case you would end up with almost the same effect: `@machines = ('machinename','machinename2'); ${'machinename'}{'config'} = 2000; ${'machinename'}{'speed'} = 19600; ${'machinename'}{'setting'} = value1, value2, value3; ${'machinename2'}{'config'} = 2020; ${'machinename2'}{'speed'} = 19600; ${'machinename2'}{'setting'} = value1, value2, value3; etc...` [download] Points being: 1. do you have to name a hash? 2. is it better to have @machines? I'm starting to wonder about this too...	[reply] [d/l] [select]