Re: Populating a Hash: Can someone help me to understand?

[ar0n]

(ugly stuff removed, replaced with less ugly)

map { $hash{$keys[$_]} = $vals[$_]  } (0..$#keys);

update
but there are nicer, prettier ways to do this; as you'll probably see below...

[merlyn]

You said:

while (my $key = shift @keys and my $value = shift @values) {
  $hash{$key} = $value;
}

And your code stops too quickly if either the key or the value is false.

---

You updated:

while (defined (my $key = shift @keys) and defined(my $value = shift @
+values)) {
  $hash{$key} = $value;
}

But even adding the defined test as you did doesn't help. Consider @keys = (1, 2, undef, 3, 4);. You'll never get to 3 or 4.

What would work is:

while (@keys and @values) {
  $hash{shift @keys} = shift @values;
}

-- Randal L. Schwartz, Perl hacker

[Limo]

Hmmm. Something strange here.

my @array = subroutine($file1, $list1);
    #foreach my $item(@array) {
        #print "$item\n";
   # }

Now, when I uncomment the foreach/print block, it prints as intended. However, when I add:

   my %hash;
while (@keys and @values) {
          $hash{shift @keys} = shift @values;
        } 
   
 foreach my $k (sort keys %hash) {
print "$k => $hash{$k}\n";     

 }

the program returns only one value per key, while @values contains several whitespace delimited elements.

[merlyn]

A hash can only have one value per key. What is it you are really trying to do?

-- Randal L. Schwartz, Perl hacker