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 |
How to change a directory in perl?
How to start perl in interactive mode?
write a script to generate n prime no.s?
What is v-strings?
Explain lists ?
What is -> symbol in perl?
What is the difference between use and require in perl?
What are the steps involved when the cgi program starts running?
How does polymorphism work in perl?
Differentiate between c++ and perl.
What is the peculiarity of returning values by subroutines in perl?
What package you use to create a windows services?