Consider the following example #! /bin/perl use strict;

Consider the following example

#! /bin/perl
use strict;
sub sample
{
my @arr=(1,2,3,4);
return @arr;
}
my ($a,$b,$c,$d) = &sample;
print "$a\n$b\n$c\n$d\n";

In the above code, How can I get the $c without using the
arguments such as $a,$b.

I don't want to use any array to get the return values.

Question Posted / vinoth_bksys

2 Answers
3174 Views
I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

Consider the following example #! /bin/perl use strict; sub sample ..

Answer / guest

Try with the following program.

[code]
sub sample
{
my @arr=(1,2,3,4);
return @arr;
}
my $c=(&sample)[2];
print $c;

Variable 'c' will contain the value '3'.

Is This Answer Correct ?

4 Yes

0 No

Consider the following example #! /bin/perl use strict; sub sample ..

Answer / guest

# Here is another solution

use strict;
sub sample {
my @arr = (1,2,3,4);
return \@arr; # return the array reference
}

my $aref = &sample;
print $aref->[2];

Is This Answer Correct ?

0 Yes

0 No

Post New Answer