Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 2 Answers
- 4031 Views
- I also Faced
- E-Mail Answers
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 |
Who created perl?
How to change a directory in perl?
What is the difference between use and require in perl programming?
Explain gmtime() function in perl?
What happens when you return a reference to a private variable?
Remove the duplicate data from @array=(“perl”,”php”,”perl”,”asp”)
Explain the internal working of cgi
Why aren't Perl's patterns regular expressions?
Explain goto label?
i have a folder called 'error' and in that, i have error log files which are generated by the build, now i want to findout the string 'error' from each log file and that error has to be copied into the another file called 'analysis'. how do you do this in perl?
For a situation in programming, how can you determine that Perl is a suitable?
What is the Common Gateway Interface?
ASP 
