Perl Tie::IxHash - update values using a value list

Question

I have a Tie::IxHash object that has been initialized as follows:

my $ixh = Tie::IxHash->new('a' => undef, 'b' => undef, 'c' => undef);

and later on I want to assign a list of values qw/1 2 3/ to those three keys. I can't seem to find a way to do that in one statement.

(The reason I'm assigning keys in one step, and values in another, is that this is part of an API and the user may wish, instead, to add values using a (key, value) interface.)

I tried $ixh->Values(0..2) = qw/1 2 3/; but that method doesn't like being on the left hand side.

Of course, I could write a loop using $ixh->Replace(index, value), but I wondered if there were a "bulk" method that I've overlooked.

Answer 1

tie my %ixh, Tie::IxHash::, ('a' => undef, 'b' => undef, 'c' => undef);
@ixh{qw( a b c )} = (1, 2, 3);

But it's not really a bulk store; it will result in three calls to STORE.

---

To access Tie::IxHash specific features (Replace and Reorder), you can get the underlying object using tied.

tied(%ixh)->Reorder(...)

The underlying object is also returned by tie.

my $ixh = tie my %ixh, Tie::IxHash::, ...;

Answer 2

Does this mean I couldn't use the "more powerful features" of the OO interface?

use strict;
use warnings;
use Tie::IxHash;

my $ixh = tie my %hash, 'Tie::IxHash', (a => undef, b => undef, c => undef);

@hash{qw(a b c)} = (1, 2, 3);

for ( 0..$ixh->Length-1 ) {
  my ($k, $v) = ($ixh->Keys($_), $ixh->Values($_));
  print "$k => $v\n";
}

__OUTPUT__
a => 1
b => 2
c => 3