Function returning array

Question

0.00/5 (No votes)

See more:

I am trying to return an array from a subroutine and use it another subroutine. It prints nothing when I do this.

PERL

#!/usr/bin/perl
use strict;
use warnings;

# Subroutine prototypes
sub getArray();

# Get array
sub dispArray
{
    my @one = getArray();
    print "$one[1]\n";
}
sub getArray()
{
    my @array1 = ("a", "b", "c", "d");
    return @array1;
}

But works fine when I do this i.e not calling it from another sub routine

PERL

#!/usr/bin/perl
use strict;
use warnings;

# Subroutine prototypes
sub getArray();

# Get array

my @one = getArray();
print "$one[1]\n";

sub getArray()
{
    my @array1 = ("a", "b", "c", "d");
    return @array1;
}

What is the reason behind it and how can I implement it correctly by calling getArray() from within another sub routine. Any help will be appreciated.

Posted 9-Sep-13 2:40am

Member 8576081

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

E.F. Nijboer · Accepted Answer · 2013-09-09T04:36:00

Try to avoid prototypes and the following will yield the result you want every time by also checking what the caller wants.

#!/usr/bin/perl
use strict;
use warnings;

sub getArray()
{
    my @array1 = ("a", "b", "c", "d");
    return @array1 if wantarray;
    return \@array1;
}

# Get array
sub dispArray
{
    my @one = getArray();
    print "$one[1]\n";
}

Good luck!