How to pass a reference of a hash and array to subroutine

Question

I am trying to pass a hash reference and array reference to subroutine but getting error like invalid class string:

sub test{
           if($chk == 2)
             {
                return(\%hash,\@array);
              } 
        }


my ($has, $arr)= test();

Now again i have to pass by reference to "$has, $arr" to a another subroutine.

How to do this? i was passing them like \%$has, \@$arr but it seems this is not the currect way to pass to a subroutine.

You are "getting an error like invalid class string"? That's smacks of a Windows CLSID registration error, not a perlish error. Can we please see the code that demonstrates the problem, rather than your narrative description of what you think you need to do to solve it? — pilcrow
– pilcrow, Commented Aug 29, 2013 at 15:22

Toto · Accepted Answer · 2013-08-29 11:34:18Z

3

Just do:

anotherSub($has, $arr);

$has and $arr are already references.

answered Aug 29, 2013 at 11:01

Toto

91.7k63 gold badges97 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Gansi · Accepted Answer · 2013-08-30 05:16:33Z

0

my %Hash=('1'=>'one');

my @Arr=('1','2');

&fun(\%Hash,\@Arr);

sub fun(){

my $Hash_Ref=shift;

my $Arr_Ref=shift;
enter code here
&Fun2($Hash_Ref,$Arr_Ref);

} sub fun2(){

my $Hash_Ref=shift;

my $Arr_Ref=shift;

}

answered Aug 30, 2013 at 5:16

Gansi

113 bronze badges