RE: Passing multiple hashes into a sub-routine and returning them

[Serebnik, Kiril]

Basically you may use something like this (note that this is old fashioned
perl style - before references were invented)

%a = (ak1 => av1, ak2 => av2);
%b = (bk1 => bv1, bk2 => bv2);

func (*a, *b);

foreach $a (keys %a)
{
        print "$a => $a{$a}\n";
}

foreach $b (keys %b)
{
        print "$b => $b{$b}\n";
}


sub func
{
        local(*c, *d) = @_;
        %c = (ck1 => cv1, ck2 => cv2);
        %d = (dk1 => dv1, dk2 => dv2);
}



Kiril Serebnik

-----Original Message-----
From: Philip Morley [mailto:PMorley@;edisonmission.com]
Sent: Tuesday, October 29, 2002 6:21 PM
To: [EMAIL PROTECTED]
Subject: Passing multiple hashes into a sub-routine and returning them


Please can someone help me with the above?

Basically what I want to do is something like this:

(%a, %b) = func(%a, %b);

Where I am passing two hashes into the function "func", modifying their
contents within it an returning them.

If I pass the hashes in by reference, how do I access them in func?

Thanks,

Phil.


_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs