Re^2: Returning values from a sub routine.

[Anonymous Monk]

Would you be able to post some sample code using the code posted here using an anonymous array to return the values?

[suaveant]

I can get you started.

You wouldn't be able to assign directly to a hash slice like you do, you'd have to iterate. If using a hash of arrays I'd always use an array as the value, even if its only one value, will help keep the code simpler. You can loop through both arrays separately or combine them

for my $name ( @names_combined ) {
  push @{$emails{$name}}, shift(@emails_combined);
}

[Anonymous Monk]

Sorry it didnt help, where in this sample code would your code go?

[suaveant]

sub test {
    my (@names_all, @email_all);
    my @names = qw(Joe mary ann pete amy jerry Joe ann John John );
    my @email = qw([e-mail] [e-mail] [e-mail]
        [e-mail] [e-mail] [e-mail] [e-mail] ann@nowhere.
+com [e-mail] [e-mail]);
    my %emails;

    my @names_combined = (@names,@names_all);
    my @emails_combined = (@email,@email_all);
    for my $name ( @names_combined ) {
       push @{$emails{$name}}, shift(@emails_combined);
    }

    return \%emails;

}

Not tested, but should get you going in the right direction. Maybe read some Perl tutorials or Learning Perl to get a better overall feel for the language.