Perl subroutine return an empty value

Question

I'm fairly new to perl so sorry if this is a newbie question.

As far as I understand perl, I can do this:

sub BuildAndroidRessourceArgument()
{
    my @xmlResFiles = @_;
    my $fileCnt = @_;
    my $index = 0;
    my $aaptResArg = "-F ";

    foreach( @xmlResFiles )
    {
        $index = $index + 1;
        if( $index == $fileCnt )
        {
            $aaptResArg = $aaptResArg.$_;
        }
        else
        {
            $aaptResArg = $aaptResArg.$_." -F ";
        }

    }
    print "$aaptResArg\n";
    return( $apptResArg );
}

When I print my aaptResArg in here I have the correct value but then:

my ( $aaptResArg ) = BuildAndroidRessourceArgument( @xmlResFiles );
print "$aaptResArg\n";

When I print after returning the value it prints nothing.

So as far as I know this code should work, if it prints in the function their's no reason why it shouldn't print when returning the value right ?

You should put "use strict;" at the top of ALL of your Perl programs! — tadmc
– tadmc, Commented Dec 15, 2011 at 15:25
use strict; use strict; use strict; use strict; use strict; for the love of the Flying Spaghetti Monster, use strict; — friedo
– friedo, Commented Dec 15, 2011 at 15:56

Alan Haggai Alavi · Accepted Answer · 2011-12-15 15:29:25Z

12

You have misspelt the variable $aaptResArg as $apptResArg. This will have been caught had you made use of the strict pragma.

Remember to always:

use strict;
use warnings;

Quoting Larry Wall:

I know it's weird, but strict vars already comes very, very close to partitioning the crowd into those who can deal with local lexicals and those who can't.
-- Larry Wall in <[email protected]>

edited Dec 15, 2011 at 15:29

answered Dec 15, 2011 at 15:13

Alan Haggai Alavi

74.7k19 gold badges105 silver badges129 bronze badges

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

Comments

Jonathan M · Accepted Answer · 2011-12-15 15:09:29Z

5

You mis-spelled. Make it:

return($aaptResArg);

answered Dec 15, 2011 at 15:09

Jonathan M

17.5k9 gold badges61 silver badges95 bronze badges

Collectives™ on Stack Overflow

Perl subroutine return an empty value

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related