Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^3: Arrow operator usage in perl

by three18ti (Scribe)
on Nov 09, 2013 at 18:56 UTC ( #1061852=note: print w/replies, xml ) Need Help??

in reply to Re^2: Arrow operator usage in perl
in thread Arrow operator usage in perl

Look at where $hwwns is defined.

As you've only pasted a bit of code out of context we really don't have much to go on here.

$hwwns->{$hwpath} = $hwwn assigns the value of $hwwn to the KEY named with the value of $hwpath

the hash ref $hwwns was "declared somewhere else"(TM) within your code that you have not shared with us

Here's a quick example to show you how hash references work:

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; # Declare the hash reference with an empty hash my $hash = {}; # assign the value "bar" to the key foo $hash->{foo} = 'bar'; # This prints the values in the hash # $VAR1 = { # 'foo' => 'bar' # }; print Dumper $hash; # you can retrieve the value by specifying the hash key directly also # prints "bar" print $hash->{foo} . "\n"; # we can use variables to assign key names: foreach my $key (qw(abc def lmnop zaxy)) { my $value = reverse $key; $hash->{$key} = $value; } # since this is test data, I've just reversed the key names # to show the differentiation between $KEY and $VALUE # Now our hash looks something like this: # $VAR1 = { # 'zaxy' => 'yxaz', # 'lmnop' => 'ponml', # 'def' => 'fed', # 'abc' => 'cba', # 'foo' => 'bar' # }; print Dumper $hash;

If you can provide more information, like a full sub definition, we can probably provide a more definite answer.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1061852]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2017-12-17 09:07 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (462 votes). Check out past polls.