multiple values for hash

OK, I have a pricing DCR, it had an ID and a price. Now they want MSRP and invoice price. Easy enough for the DCR. When I am running my TPL, I read the DCR into a hash and access it for the hash.

I know I could concatinate the values and and regex them apart, I prefer not.

I was trying something like this:


my %hash=();
$hash{"something"}=['1a','2b'];
(@array) = $hash{"something"};
foreach (@array) {print "$_\n";}

($a, $b) = $hash{"something"};
print"Got a $a b $b\n";

no luck. I usually get something like this:
Got a ARRAY(0x15e491c) b

What am I missing ?

Find more posts tagged with

Comments

nipper

ok, kept reading perlref in perldoc.perl.org. Finally found this that works:



$a = $hash{"something"}[0];
$b = $hash{"something"}[1];

jbonifaci

Why are you using an array? It doesn't sound like you have any keys that have more more than one value. Why are you simply doing this:


my %hash;
$hash{id} = 12345;
$hash{price} = 28999;
$hash{msrp} = 24400;
$hash{invoicePrice} = 19700;

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

Unless 'something' isn't your attribute, then you could do a hash of hashes:


my %hash;
$hash{something} = {};
$hash{something}{id} = 12345;
$hash{something}{price} = 28999;
$hash{something}{msrp} = 24400;
$hash{something}{invoicePrice} = 19700;

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

Unless you really want an array of some values that are the same, then you could do this:


my %hash;
$hash{priceArray} = [];
push(@{$hash{priceArray}}, 'one');
push(@{$hash{priceArray}}, 'two');
push(@{$hash{priceArray}}, 'three');

foreach my $element (@{$hash{priceArray}})
{
 print "$element\n";
}

or:


my %hash;
$hash{something} = {};
$hash{something}{priceArray} = [];
push(@{$hash{something}{priceArray}}, 'one');
push(@{$hash{something}{priceArray}}, 'two');
push(@{$hash{something}{priceArray}}, 'three');

foreach my $element (@{$hash{something}{priceArray}})
{
 print "$element\n";
}

Let me know if you need anything else Andy.

~Jeff

nipper

I used "something" as test code. Every object has a unique ID and 2 prices. I have a pricing DCR that allows someone to set the price for all objects. When someone submits the specific object, I build a hash with the ID and both prices and am just trying to get the data.

so $hash{part1} = [100,50]
$hash(part2} = [75,60]
etc.

I am getting the data like this

$MSRP = $hash{part1}[0];
$invoice=$hash{part1}[1];

jbonifaci

Ok, well, for cleaner code, I would use a hash of hashes then, as then the data is named instead of being assumed by the order in the array:


my %hash;
$hash{part1} = {};
$hash{part1}{msrp} = 100;
$hash{part1}{invoice} = 50;
$hash{part2} = {};
$hash{part2}{msrp} = 75;
$hash{part2}{invoice} = 60;

print "part1 msrp: $hash{part1}{msrp}\n";
print "part1 invoice: $hash{part1}{invoice}\n";
print "part2 msrp: $hash{part2}{msrp}\n";
print "part2 invoice: $hash{part2}{invoice}\n";

or:


my %hash;
$hash{part1} =
{
 'msrp' => 100,
 'invoice' => 50
};
$hash{part2} =
{
 'msrp' => 75,
 'invoice' => 60
};

print "part1 msrp: $hash{part1}{msrp}\n";
print "part1 invoice: $hash{part1}{invoice}\n";
print "part2 msrp: $hash{part2}{msrp}\n";
print "part2 invoice: $hash{part2}{invoice}\n";

~Jeff

Adam Stoller

Or, taking it a step further in both directions:

my %hash1 = (
    part1 => [100, 50],
    part2 => [75,60],
);

foreach my $part (sort keys %hash1) {
    print "$part =>\n";
    foreach my $entry (@{$hash1{$part}}) {
        print "\t$entry\n";
    }
}

my %hash2 = (
    part1 => {
 'msrp' => 100,
 'invoice' => 50
    },
    part2 => {
 'msrp' => 75,
 'invoice' => 60
    },
);

foreach my $part (sort keys %hash2) {
    print "$part =>\n";
    foreach my $entry (sort keys %{$hash2{$part}}) {
        print "\t$entry => $hash2{$part}{$entry}\n";
    }
}

Result:

part1 =>
 100
 50
part2 =>
 75
 60
part1 =>
 invoice => 50
 msrp => 100
part2 =>
 invoice => 60
 msrp => 75

jbonifaci

Adam, I would have taken it to that extent as well, but it would appear that Andy won't have all of the information at the time he creates the hash. If he did, then I would go with the method you defined to create it. But I assumed (possibly incorrectly) that he was iterating through a list of parts and for each part, assigning the msrp and invoice prices for that part with the part id as a the key.

Anyway, I just like teaching an old dog new tricks... Unfortunately the old dog in this case usually just likes to get it to work and not worry about it beyond that... So I think these new tricks may have been lost on this old dog... I would happily be corrected though...

nipper

who are you calling an old dog......... :-)

Thanks for the

jbonifaci

who are you calling an old dog......... :-)

Thanks for the

I'm debating with myself whether this was intentional or not... Here are 3 of the possibilities I've come up with:

1) The old dog is senile.
2) The old dog is pretending to be senile.
3) The old dog is saying thanks for nothing.

I'm leaning towards 1, but hoping for the old dog's sake that it is 2 or 3,

nipper

#4 the old dog can't type.

it was supposed to be for the help...

jbonifaci

I think that falls under #1... Poor old dog... =(

No problem Andy, always glad to help out a friend,