Returning multiple values from a subroutine

rkrish has asked for the wisdom of the Perl Monks concerning the following question:

Hi,I'm trying to return an array and a variable from a subroutine,but I'm unable to get the desired output,please help me in correcting the code below

my ( @subs, $SubId )  = getsubsFromAcct( $currAcct );
my $length = @subs;
print ("No of subs : $length and subs are @subs");


sub getsubsFromAcct
{
    my $acctNum = shift;
    my @subs = ();
    my ( $sbscrpId, $count );
    my $getSbscrp_id = $lda->prepare("select sbscrp from sbscrp_cltn w
+here acct_nbr = ? ");
    my $subsOfSbscrp = $lda->prepare("select distinct subs_time from s
+bscrp_time where sbscrp = ? ");

    $getSbscrp_id->bind_param(1,$acctNum);
    $getSbscrp_id->execute();
    
    $getSbscrp_id->bind_col(1,\$sbscrpId);
    
    if ( $getSbscrp_id->fetch) 
    {
        $subsOfSbscrp->bind_param(1,$sbscrpId);
        $subsOfSbscrp->execute()
        while ( my @subRow = $subsOfSbscrp->fetchrow_array() )  
            {
                push(@subs,@subRow);
            }
        
    }
    
    return (  \@subs, \$sbscrpId );
}
[download]

The output I got is :

No of subs : 2 and subs are ARRAY(0x2f8d10) SCALAR(0x2f8cf8)
[download]

Comment on Returning multiple values from a subroutine Select or Download Code

Replies are listed 'Best First'.
Re: Returning multiple values from a subroutine by vinoth.ree (Monsignor) on Dec 28, 2012 at 11:49 UTC
Hi, You are returning an Array reference and scalar reference, but the value get assigned into an array, So both the returning reference saved into @subs array . change the code as `my ( $subs, $SubId ) = getsubsFromAcct( $currAcct ); my $length = @$subs; print ("No of subs : $length and subs are @$subs");` [download]	[reply] [d/l]
Re^2: Returning multiple values from a subroutine by rkrish (Acolyte) on Dec 28, 2012 at 12:33 UTC
Thanks for the quick reply :) it worked	[reply]
Re^3: Returning multiple values from a subroutine by muba (Priest) on Dec 29, 2012 at 02:19 UTC
I'm glad it does. However, what I find more interesting is whether you understand why it works. References can be a tough subject to grasp. But you do, it's an immensely powerful tool that you should be glad to have in your toolbox. So are you just taking ree's solution as-is, happy it solves your problem, or do you see what he did and how that works?	[reply]
Re: Returning multiple values from a subroutine by McDarren (Abbot) on Dec 28, 2012 at 11:56 UTC
You are returning a reference to an array, which is a scalar value. So you need to expect a scalar, and then de-reference it to get at the array values. Observe: `#!/usr/bin/perl use strict; use warnings; my $currAcct = 1; my ( $subs, $SubId ) = getsubsFromAcct( $currAcct ); my $length = @$subs; print ("No of subs : $length and subs are @{$subs}"); sub getsubsFromAcct { my $acctNum = shift; my @subs = (); my $sbscrpId = 4; @subs = qw\| 2 3 4 5 \|; return ( \@subs, \$sbscrpId ); }` [download] Prints: `No of subs : 4 and subs are 2 3 4 5` [download] Hope this helps Darren	[reply] [d/l] [select]