Gossamer Forum: General: Perl Programming: return two arrays from a sub

Jun 30, 2021, 12:38 PM

delicia

Enthusiast (661 posts)

Jun 30, 2021, 12:38 PM

Post #1 of 3

Shortcut

return two arrays from a sub

is this legal?

Code:
... 
my (@par,@whandicap) = &get_par_for_course; 
... 

sub get_par_for_course {
# --------------------------------------------------------
# lookup course and get par for each hole
 

 &switch_to_courses;
 
my (%course) =  &get_record2('1'); # always berkeley hills = #1
 

my (@par) = split (/:/, $course{'WPar'});
my (@whandicap) = split (/:/, $course{'WHandicap'});
 
return(@par,@whandicap);
 

}

or do i need separate routines to retrieve the two elements?

Jun 30, 2021, 12:49 PM

delicia

Enthusiast (661 posts)

Jun 30, 2021, 12:49 PM

Post #2 of 3

Shortcut

Re: [delicia] return two arrays from a sub In reply to

ok figured a way to do it:
...
my ($wpar,$whandicap) = &get_par_handicaps;
my (@par) = split (/:/, $wpar);
my (@whandicap) = split (/:/, $whandicap);
...

sub get_par_handicaps {
# --------------------------------------------------------
# lookup course and get par for each hole

&switch_to_courses;

my (%course) = &get_record2('1'); # always berkeley hills = #1
return($course{'WPar'},$course{'WHandicap'});

}

Jul 6, 2021, 1:00 AM

Andy

Veteran / Moderator (18441 posts)

Jul 6, 2021, 1:00 AM

Post #3 of 3

Shortcut

Re: [delicia] return two arrays from a sub In reply to

You can do it by making them arrayrefs:

Code:
my ($par,$whandicap) = &get_par_for_course;  
foreach (@$par) { 
 .... 
} 

foreach (@$whandicap) { 
 .... 
}

...or you can reference them:

Code:
my ($par,$whandicap) = (@$par,@$whandicap)

Code:
sub get_par_for_course {  
# --------------------------------------------------------  
# lookup course and get par for each hole  

 &switch_to_courses;  

my (%course) =  &get_record2('1'); # always berkeley hills = #1  

my (@par) = split (/:/, $course{'WPar'});  
my (@whandicap) = split (/:/, $course{'WHandicap'});  

return(\@par,\@whandicap);  

}

Andy (mod)
andy@ultranerds.co.uk