Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Hash not getting updated

by CharlesClarkson (Curate)
on Apr 30, 2005 at 07:04 UTC ( [id://452810]=note: print w/replies, xml ) Need Help??


in reply to Hash not getting updated

I assume this is just contrived code to ask a question, but, just in case, a hash slice makes the 'foreach' block unnecessary.

my @array = ( 'white', 'blue', 'yellow' );
my %hash;
@hash{ @array } = @array;

[download]

Or, without the array:

my %hash;
@hash{ 'white', 'blue', 'yellow' } = ( 'white', 'blue', 'yellow' );

[download]

Replies are listed 'Best First'.
Re^2: Hash not getting updated
by Madam (Sexton) on May 03, 2005 at 06:34 UTC
    I had an issue in my code,that's why i had asked this question and given a small example which was very close to the issue i was facing.And your reply helped me to solve the issue. i feel instead of @hash{ @array } = @array; $hash{@array} = @array ; would be better
[reply]

      Have you tried it like that?

      #!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper 'Dumper';

my @colors = qw( white yellow green );
my %hash;
$hash{ @colors } = @colors;

print Dumper \%hash;

__END__

      [download]

      I get this in perl 5.8.6:

      $VAR1 = {
          '3' => 3
        };

      [download]

      Perl assumes you want to evaluate the array in scalar context. Better to stick to the same notation everyone else uses for hash slices.

      HTH,
      Charles
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://452810]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others goofing around in the Monastery: (3)
As of 2024-04-26 06:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found