in reply to get one value from Tie::IxHash

You forgot the 's' in the Values method. Also note that by default is returns an array, but it can return a scalar if desired

use strict;
use warnings;

my $r = new Tie::IxHash();
$r->Push('a' => 1);
print "The key a in my hash has value ", $r->Values('a'), "\n";

[download]

I've run this code and the output is exactly what you expect.

Replies are listed 'Best First'.
Re^2: get one value from Tie::IxHash
by jeanluca (Deacon) on Dec 14, 2009 at 16:34 UTC
    ok, I didn't forget the 's' but from 'Values' I didn't expected a scalar. Furthermore, when I do 
    my $r = new Tie::IxHash() ;
$r->Push( a => 9 ) ;
$r->Push( b => 2 ) ;

my @l = $r->Values('a', 'b') ;
print @l ;

    [download]
    it prints '99', not '92' why ?
[reply]
[d/l]
      Why won't you post a complete programs?

      Values takes indices, indices are integers, int 'a' and int 'b' are both 0, and first key added is 'a' whose value is 9 

      #!/usr/bin/perl --
use strict;
use warnings;
use Tie::IxHash;

#~ adapted from 
#~ http://cpansearch.perl.org/src/GSAR/Tie-IxHash-1.21/t/ixhash.t
my $TNUM = 0;
sub T {
    my($in,$out)=@_;
    print "# is \n#    $in\n#    $out\n";
    print $in eq $out ? "ok " : "not ok ", ++$TNUM, "\n"
}


my $ixh = tie (my(%bar), 'Tie::IxHash', 'a' => 1, 'q' => 2, 'm' => 'X'
+, 'n' => 'Y');
#$ixh = Tie::IxHash->new('a' => 1, 'q' => 2, 'm' => 'X', n => 'Y');
$ixh->Push(e => 5, f => 6);
T 'a|1|q|2|m|X|n|Y|e|5|f|6' , join('|', %bar);
$ixh->Delete('e', 'a');
T 'q|2|m|X|n|Y|f|6' , join '|', %bar;
T 'q|m|n|f' , join '|', $ixh->Keys;
T '2|X|Y|6' , join '|', $ixh->Values;
T 'm|n|f' , join '|', $ixh->Keys(1, 2, 3);
T 'X|Y|6' , join '|', $ixh->Values(1, 2, 3);

      [download]
[reply]
[d/l]
      A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom