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 |
If you want to empty an array then how would you do that?
Can we load binary extension dynamically?
Where the command line arguments are stored and if you want to read command-line arguments with Perl, how would you do that?
What is the closure in PERL?
How will you access an element of a perl array?
How do I pass a command line argument in perl?
write a perl script to find whether a given line of text is starting and ending with same word or not ???
Which functions in perl allows you to include a module file. State their differences.
Explain the functioning of conditional structures in perl.
Why we use "use lib $path"?
What is the difference between die and exit in perl?
What rules must be followed by modules in perl.