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.
Answers were Sorted based on User's Feedback
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 |
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 |
Define say() function in perl?
What is the difference between $array[1] and @array[1]?
What does undef function in perl?
Differentiate between arrays and list in perl.
How to replace perl array elements?
How can you call a subroutine and identify a subroutine?
How do you find the length of an array?
What does `new $cur->{LINK}' do? (Assume the current package has no new() function of its own.)
What does delete function do in perl?
What is the difference between use and require in perl programming?
How to sort arrays in perl?
In CPAN module, name an instance you use.