Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Perl: Return hash from subroutine

I have been trying examples for hours but I can't seem to grasp how to do what I want to do.

I want to return a hash from a subroutine, and I figured a reference was the best option. Here's where it gets a bit tricky. I want to reference a hash like $hash{$x}. I am still a noob at perl :/

1.First question, the examples I use seem to show it is ok to use $hashTable{$login}, should I be using %hashTable{$login} or does it not matter? Below is the code:

sub authUser  {
    $LocalPath = "/root/UserData";
    open(DATAFILE, "< $LocalPath");
    while( $linebuf = <DATAFILE> ) {
        chomp($linebuf);
        my @arr = split(/:/, $linebuf);
        my $login = $arr[1];        # arr[1] contains the user login names
        my $hashTable{ $login } = "$arr[0]";        #$arr[0] is account number
    }
    close DATAFILE;
    return \$hashTable{ $login };
}

I then want to test this data to see if a login is present, here is my test method

# test login Dr. Brule which is present in UserData
my $test = "Dr. Brule";
my $authHash = &authUser();

if ( $authHash{ $test } )  {
    print "Match for user $test";
}
else  {
    print "No Match for user $test";
}

2.Should my $authHash be really $authHash{ $something }, I am so confused on this

Edit: After some reading tips, still attempting but no dice, any help would be greatly appreciated


Edit 2: Can anyone modify my code so that I can understand the answers better? I'm sorry I can't seem to get this to work at all, I have been trying for hours and I really want to know the correct way to do this, I can post my various tries but I feel that will be a waste of real estate.
like image 799
thewrp Avatar asked May 14 '14 08:05

thewrp


People also ask

How do I return a hash from a subroutine in Perl?

To return a value from a subroutine, block, or do function in Perl, we use the return() function. The Value may be a scalar, a list, or a hash value. Its context is selected at runtime.

How do I return a hash reference in Perl?

$hash{key} is a single element within the hash. Therefore, \%hash is a reference to %hash , i.e., the whole hash, which appears to be what you intend to return in this case. \$hash{key} is a reference to a single element.

How do I find a key in a hash in Perl?

Extracting Keys and Values from a Hash variable The list of all the keys from a hash is provided by the keys function, in the syntax: keys %hashname . The list of all the values from a hash is provided by the values function, in the syntax: values %hashname . Both the keys and values function return an array.


3 Answers

First off, as mpapec mentioned in comments, use strict; use warnings;. That will catch most common mistakes, including flagging most of the problems you're asking about here (and usually providing hints about what you should do instead).

Now to answer questions 1 and 2:

%hash is the hash as a whole. The complete data structure.

$hash{key} is a single element within the hash.

Therefore, \%hash is a reference to %hash, i.e., the whole hash, which appears to be what you intend to return in this case. \$hash{key} is a reference to a single element.

Where it gets tricky in your second question is that references are always scalars, regardless of what they refer to.

$hash_ref = \%hash

To get an element out of a hash that you have a reference to, you need to dereference it first. This is usually done with the -> operator, like so:

$hash_ref->{key}

Note that you use -> when you start from a reference ($hash_ref->{key}), but not when you start from an actual hash ($hash{key}).

(As a side note on question 2, don't prefix sub calls with & - just use authUser() instead of &authUser(). The & is no longer needed in Perl 5+ and has side-effects that you usually don't want, so you shouldn't get in the habit of using it where it's not needed.)

For question 3, if you're only going to check once, you may as well just loop over the array and check each element:

my $valid;
for my $username (@list_of_users) {
  if ($login eq $username) {
    $valid = 1;
    last; # end the loop since we found what we're looking for
  }
}

if ($valid) {
  print "Found valid username $login\n";
} else {
  print "Invalid user! $login does not exist!\n";
}
like image 167
Dave Sherohman Avatar answered Nov 08 '22 14:11

Dave Sherohman


To be clear, Perl works with scalars or lists of them:

$scalar = 1;
@list = ( $scalar, $scalar, $scalar );

Each item of list may be accessed by index, e.g. $list[1].
You can also access items by name. This structure is called a hash: $hash{ name1 }

%hash = ( 'name1', $scalar, 'name2', $scalar, 'name3', $scalar )

But, as you can see, this is still a list. Notice the "()" around it.
And again, each item of the list can be only a scalar.

I have not seen this in any book, but the $ sign means one value and @ means list of values.

In this example you have one value, so you use the $ sign:

$scalar =  $hash{ name1 };
$scalar =  $list[ 1 ];

In this next example you have a list of values, so you use "@":

@list2 =  @list1;            # copy all items
@list2 =  @list[ 1, 3..5 ];  # copy four items with index 1,3,4,5
@list2 =  @hash{ 'name1', 'name3' }; #copy two items with index 'name1', 'name2'

Perl has references. This is powerful tool.

$ref = \$scalar;
$ref = \@list;
$ref = \%hash;

$ref is also scalar, because it has only one value. To access to underlying data referred by this $ref, you should use a dereference.

$scalar = $$ref;
@list   = @$ref;
%hash   = %$ref;

But actually, you do not want the whole list or hash. You just want some item in them. For this, you use -> and either [] to tell Perl you want to access a list element, or {} to tell Perl you want to access a hash element:

$scalar = $ref->[ 1 ];
$scalar = $ref->{ name1 };

NOTICE: you're accessing one element, so you use the $ sign.

If you want list of elements from array or hashes, you use the @ sign. For example:

@list =  @$ref[ 1, 3..5 ];
@list =  @$ref{ 'name1', 'name2' };

1st: $ref - returns reference to structure. $ says you get one value from variable 'ref'
2nd: @$ref - you dereference $ref. @ says that you want to access the list of items by that reference.
3rd-a: you get '1,3,4,5' items from array (NOTICE: [])
3rd-b: you get 'name1', 'name2' items from hash (NOTICE: {})

But when you a get reference to hash or list and put this reference to another hash or array, we may create complex structures such as an array of hashes of hashes, or hash of arrays of hashes. Examples:

@list = ( 1, 2, 3, 4, 5 );
%hash = ( 'a', 1, b => 2 );
@list2 = ( \@list, \%hash, 3, 'y' );
%hash2 = ( name1 => \@list2, d => 4 );
%hash2 = ( 'name1', \@list2, 'd', 4 );  #same. no any difference.
$href  = \%hash2;

=> - just quote left operand and put , after it.

If you want to access to one item of 'hash2':

$scalar =  $hash2{ name1 };
$scalar =  $href->{ name1 };

Using $href-> after dereferencing will mean %hash2.

If you want to access to two or more items of 'hash2':

@list =  @hash2{ 'name1', 'd' };
@list =  @$href{ 'name1', 'd' };

Using @$href after dereferencing will mean %hash2

IN DETAIL:

$scalar =  $hash2{ name1 }; # <--- What does this mean???

$hash2 means we access one item of %hash2. Which is a reference to a list:

$list_ref =  $hash2{ name1 };
$scalar   =  $list_ref->[ 1 ]; # <--- what we get here???

$list_ref means we access one item. ->[ means we access the list. Because $list_ref refers to @list2, we access \%hash. We can complete that in one step:

$scalar =  $hash2{ name1 }->[ 1 ];

You may think here as you replace the text '$list_ref' by '$hash2{ name1 }'

We say that [ 1 ] refers to %hash. So to access one item of that hash we use $ again:

$hash_ref  =  $hash2{ name1 }->[ 1 ];
$scalar    =  $hash_ref->{ b };

$hash_ref means we access one item. ->{ means we access to hash. Because $hash_ref refers to %hash we access 2. We can complete that in one step:

$scalar =  $hash2{ name1 }->[ 1 ]->{ b };

You again may think here as you replace text '$hash_ref' by '$hash2{ name1 }->[ 1 ]'. But hash2 here is %hash2. What about $href? Please remember this example:

$scalar =  $hash2{ name1 };
$scalar =  $href->{ name1 };

You may notice, if you access the item by ref you just add ->. Compare:

@l = ( 1, 2, 3, 4 );
$scalar = $l[ 1 ];    # to access to second item of @l list
$hr = \@l;
$scalar = $hl->[ 1 ]; # to access to second item of @l list

%h = @l;
$scalar =  $h{ 1 }; 
$hr =  \%h;
$scalar =  $hr->{ 1 };

The type of bracket after -> will be [ for an array or { for a hash item.

What about $href?

$scalar =  $hash2{ name1 }->[ 1 ]->{ b };
$scalar =  $href->{ name1 }->[ 1 ]->{ b };

After the first dereference we do not require ->

$scalar =  $hash2{ name1 }[ 1 ]{ b };
                 ^-- first dereference
$scalar =  $href->{ name1 }[ 1 ]{ b };
                ^--first dereference

Returning to your question: in Perl, you may pass a LIST of values to subs and return a LIST also.

sub test {
    return @_;
}

Here we return all items we get.

return \%hash;  # fn()->{ name1 }; # actually all these is list of one item
return \@list;  # fn()->[ 1 ]; # so we may write: (fn())[0]->[ 1 ];
return $scalar; # fn(); # here also list of one item
return ( $scalar, \%hash, \@list ); 
    (fn())[ 0 ]; 
    (fn())[ 1 ]->{ name1 };
    (fn())[ 2 ]->[ 1 ];

it is ok to use $hashTable{$login}, should I be using %hashTable{$login} or does it not matter?

Nope. You should use $ to access one item from %hashTable. $hashTable{$login} is right.
If you want to extract two logins you should use @:

@list =  @hashTable{ 'login1', 'login2' };
# or
$l1 = 'login1';
$l2 = 'login2';
@list =  @hashTable{ $l1, $l2 };

return \$hashTable{ $login };

Wrong. You return one item from a hash. So return $hashTable{ $login } is right.

2.Should my $authHash be really $authHash{ $something }, I am so confused on this

I suppose your %hashTable is a list of hashes keyed by $login. Like this:

$login1 = { name => 'Vasiliy',   pass => 'secret' }  # ref to hash
%login2 = ( name => 'Petrovich', pass => '^&UDHJ' ); # just a hash
%hashTable = (
    vasya => $login1,  # items are always refs!!!
    piter => \%login2, # items are always refs!!!
)

So authUser sub will return a reference:

my $authHash = authUser( 'vasya' ); # & is not required at all

Because of $authHash, if the reference is to a hash you should use ->

if( $authHash->{ pass } eq $password ) {
...
}

But if your authUser is a parse config file and returns all users, you should to rename it to loadUsers and return a reference to the hash: sub loadUsers { .... return \%hashTable; }

my $usersDB =  loadUsers;

if( $usersDB->{ $login }->{ pass } eq $password ) {
     print 'You have granged access';
}
else { ... }

Edit 2: Can anyone modify my code so that I can understand the answers better?

Nope. Read my tutorial. To understand how to write code you should do it yourself.

AS ADVICE

While you're a newbie:

  • always use hashref and listref.
  • always use -> to access items.
  • always use $ sigil as first char.

.

$list = [ 1, 2, 3 ];
$hash = { a => 1, b => 2 };
$list->[ 2 ];
$hash->{ b };

Exceptions will be when you access the whole array or hash:

@l = @$list;
%h = %$hash;
@l = keys %$hash;
@l = values %$hash;
like image 22
Eugen Konkov Avatar answered Nov 08 '22 14:11

Eugen Konkov


You probably don't want to be doing this:

return \$hashTable{ $login };

You are returning a reference (pointer) to your hash. Try just

return $hashTable{$login} 

Which will return the account number.

Or if you really want a hash with a bunch of people in there then

return \$hashTable

is fine (don't add the {$login} part), but on the other side you need to be dereferencing.

eg:

   my $p = authUser()
   if ($p->{'Dr. Brule'})
   ...

Notice the -> in there. It de-references the pointer you passed back.

like image 2
John C Avatar answered Nov 08 '22 13:11

John C