Associative Arrays.

I am trying to do a never ending hashtable. Which takes key-value pair as two individual arrays and sort the keys and displays them with corresponding values. But for some reason my result shows that my key value pair are interchanging.

Here is a small snippet.

[PHP]
#!/usrl/bin/perl

# DEFINE A HASH
# DEFINE A HASH
my @array1 = ("Element1", "Element2", "Element3", "Element4", "Element5", "Element6");
my @array2 = ("1", "2", "3", "4", "5", "6");
%coins = ( @array1, @array2);
# FOREACH LOOP
foreach $key (sort keys %coins) {
print "$key: $coins{$key}\n";
}

[/PHP]

Result :

[html]
1: 2
3: 4
5: 6
Element1: Element2
Element3: Element4
Element5: Element6

It should rather be,

1: Element1
2: Element2
3: Element3
4: Element4
5: Element5
6: Element6
[/html]

Any pointers.

Find more posts tagged with

Comments

Adam Stoller

Try this:

my @array1 = ("Element1", "Element2", "Element3", "Element4", "Element5", "Element6");
my @array2 = ("1", "2", "3", "4", "5", "6");
my %coins;
@coins{@array1} = @array2;

foreach my $key (sort keys %coins) {
print "$key: $coins{$key}\n";
}

Bhargav Coca

Try this:
my @array1 = ("Element1", "Element2", "Element3", "Element4", "Element5", "Element6");
my @array2 = ("1", "2", "3", "4", "5", "6");
my %coins;
@coins{@array1} = @array2;

foreach my $key (sort keys %coins) {
print "$key: $coins{$key}\n";
}

I know it will work, I need not test it period. I see what you did, The way i defined doesn't do the trick because, the array is not correct or does this thing interprets it randomly and so i see a different result. Can you please explain just that line. Going forward I am going to do a array in a hash which would be an array for an other hash, basically Data Structures in Perl. I am going to keep my Key constantly defined and change values for different hashes. I am in process of putting it down.

Thank You Adam.

Adam Stoller

I know it will work, I need not test it period. I see what you did, The way i defined doesn't do the trick because, the array is not correct or does this thing interprets it randomly and so i see a different result. Can you please explain just that line. Going forward I am going to do a array in a hash which would be an array for an other hash, basically Data Structures in Perl. I am going to keep my Key constantly defined and change values for different hashes. I am in process of putting it down.

Thank You Adam.

Your code:

%coins = ( @A, @B);

Is equivalent to:

%coins = (
    $A[0] => $A[1],
    $A[2] => $A[3],
    ...
);

The code I posted:

@coins{@A} = @B;

treats the hash as an array and the key (within curly braces as opposed to parens) is an array of keys being set to an array of values - doing exactly what you wanted:

%coins = (
    $A[0] => $B[0],
    $A[1] => $B[1],
    ...
);

There might be a more technical answer, but hopefully that's sufficient.

Bhargav Coca

Thank You Adam.