Doubt on how to return a hash from one subroutine to another

pavanponnapalli

hi ,
I have got a code as under :

Expand|Select|Wrap|Line Numbers

 
sub dbcall

{

    my %hash;

    my $i=0;

    print "<<<<<<<@_>>>>>>> \n";

    foreach(@_)

     {

         %hash=();

                      if($_=~/\=/)

        {

         print "***$`*** \n";

                     print "***$'*** \n";

                                 $hash{$`} => $';

                  }
 
        foreach(keys %hash)

                    {                                                     print "$_ => $hash{$_}";

                                }

Actually i have got four lines of log. Each line of data i have passed to this subroutine which comes as for example say

Expand|Select|Wrap|Line Numbers

kkpd=10

so i have matched for "equal to"

Expand|Select|Wrap|Line Numbers

$hash{$`} = $'

now all the key value pairs are put in the hash. I need to send hash as a whole to another subroutine and see the values in the hash in that subroutine. How can i do this?

Thanks,
pavan

nithinpes

You can send the hash by reference to other subroutine. Call the subroutine as below:

Expand|Select|Wrap|Line Numbers

mysub(\%hash);

Inside the subroutine, get the hash from this hash reference which is sent as argument:

Expand|Select|Wrap|Line Numbers

 
sub mysub  {

   my %gethash=%{$_[0]}; # dereference the hash reference

   foreach(keys %gethash) {

      print "$_ : $gethash{$_}\n"; }

}

- Nithin

Doubt on how to return a hash from one subroutine to another

Post your reply

Similar topics