Re: multi-dimensional hash

or perhaps $HoA{$rboc,$telco} ++; I've never seen this in any literature but it seems to work OK...comments?

My first thought is "what are you trying to accomplish? "

Consider the following:

#!/usr/bin/perl -w
######################################################################
+##
 
 
use strict;
use Data::Dumper;
 
 
my %hash=();
 
 
foreach my $i('a'...'g'){
    foreach my $j('a'..'g'){
        $hash{$i,$j}="-";
    }
}
 
 
 
print Dumper(%hash);
[download]

When run produces:

$VAR1 = 'dd';
$VAR2 = '-';
$VAR3 = 'fb';
$VAR4 = '-';
$VAR5 = 'ab';
$VAR6 = '-';
$VAR7 = 'ge';
$VAR8 = '-';
$VAR9 = 'bd';
$VAR10 = '-';
$VAR11 = 'dc';
$VAR12 = '-';
$VAR13 = 'aa';
$VAR14 = '-';
$VAR15 = 'cc';
$VAR16 = '-';
$VAR17 = 'ae';
$VAR18 = '-';
$VAR19 = 'ba';
$VAR20 = '-';
$VAR21 = 'cb';
$VAR22 = '-';
$VAR23 = 'gb';
$VAR24 = '-';
$VAR25 = 'ef';
$VAR26 = '-';
$VAR27 = 'ea';
$VAR28 = '-';
$VAR29 = 'gd';
$VAR30 = '-';
$VAR31 = 'ec';
$VAR32 = '-';
$VAR33 = 'cg';
$VAR34 = '-';
$VAR35 = 'ad';
$VAR36 = '-';
$VAR37 = 'eg';
$VAR38 = '-';
$VAR39 = 'de';
$VAR40 = '-';
$VAR41 = 'fe';
$VAR42 = '-';
$VAR43 = 'fg';
$VAR44 = '-';
$VAR45 = 'dg';
$VAR46 = '-';
$VAR47 = 'cf';
$VAR48 = '-';
$VAR49 = 'bf';
$VAR50 = '-';
$VAR51 = 'ed';
$VAR52 = '-';
$VAR53 = 'ce';
$VAR54 = '-';
$VAR55 = 'ac';
$VAR56 = '-';
$VAR57 = 'gf';
$VAR58 = '-';
$VAR59 = 'bb';
$VAR60 = '-';
$VAR61 = 'db';
$VAR62 = '-';
$VAR63 = 'ee';
$VAR64 = '-';
$VAR65 = 'bc';
$VAR66 = '-';
$VAR67 = 'ga';
$VAR68 = '-';
$VAR69 = 'gc';
$VAR70 = '-';
$VAR71 = 'af';
$VAR72 = '-';
$VAR73 = 'fd';
$VAR74 = '-';
$VAR75 = 'gg';
$VAR76 = '-';
$VAR77 = 'fc';
$VAR78 = '-';
$VAR79 = 'ca';
$VAR80 = '-';
$VAR81 = 'ag';
$VAR82 = '-';
$VAR83 = 'be';
$VAR84 = '-';
$VAR85 = 'fa';
$VAR86 = '-';
$VAR87 = 'cd';
$VAR88 = '-';
$VAR89 = 'ff';
$VAR90 = '-';
$VAR91 = 'bg';
$VAR92 = '-';
$VAR93 = 'df';
$VAR94 = '-';
$VAR95 = 'da';
$VAR96 = '-';
$VAR97 = 'eb';
$VAR98 = '-';
[download]

Was this what you were after?

I noticed that GrandFather showed the other method. It is all in what you want to accomplish...

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Comment on Re: multi-dimensional hash Select or Download Code

Replies are listed 'Best First'.
Re^2: multi-dimensional hash by ikegami (Patriarch) on Nov 02, 2005 at 21:04 UTC
The data will be organized betted if you substitue `print Dumper(%hash);` with `print Dumper(\%hash);`	[reply] [d/l] [select]
Re^3: multi-dimensional hash by blue_cowdawg (Monsignor) on Nov 02, 2005 at 21:08 UTC
The data will be organized betted if you substitue True Done that way it looks like: $VAR1 = { 'dd' => '-', 'fb' => '-', 'ab' => '-', 'ge' => '-', 'bd' => '-', 'dc' => '-', 'aa' => '-', 'cc' => '-', 'ae' => '-', 'ba' => '-', 'cb' => '-', 'gb' => '-', 'ef' => '-', 'ea' => '-', 'gd' => '-', 'ec' => '-', 'cg' => '-', 'ad' => '-', 'eg' => '-', 'de' => '-', 'fe' => '-', 'fg' => '-', 'dg' => '-', 'cf' => '-', 'bf' => '-', 'ed' => '-', 'ce' => '-', 'ac' => '-', 'gf' => '-', 'bb' => '-', 'db' => '-', 'ee' => '-', 'bc' => '-', 'ga' => '-', 'gc' => '-', 'af' => '-', 'fd' => '-', 'gg' => '-', 'fc' => '-', 'ca' => '-', 'ag' => '-', 'be' => '-', 'fa' => '-', 'cd' => '-', 'ff' => '-', 'bg' => '-', 'df' => '-', 'da' => '-', 'eb' => '-' }; [download] Much more readable.	[reply] [d/l]