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
3921 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

More CGI Perl Interview Questions

How to disable the mod_perl from apache_server as i have used perlfect search on the site and its pagination is not working and the remedy is to disable the mod_perl.

0 Answers

Differentiate between c++ and perl.

0 Answers

what is Chop & Chomp function does?

0 Answers

package MYCALC; use Exporter; our @EXPORT = (); our @ISA = qw(Exporter); our @EXPORT_OK = qw(addition multi); our %EXPORT_TAGS = (DEFAULT => [qw(&addition)],Both => [qw(&addition & +multi)]); sub addition { return $_[0] + $_[1]; } sub multi { return $_[0] * $_[1]; } 1; Program: use strict; use warnings; my @list = qw (2 2); use Module qw(:DEFAULT); print addition(@list),"\n"; Above coding is my module MYCALC and the program which using this module, I have not exported any function using @EXPORT, but I have used the DEFAULT in %EXPORT_TAGS with the function addition, when I call this function from the main it says the error as,

0 Answers

How do I pass a command line argument in perl?

0 Answers

Can we load binary extension dynamically?

0 Answers

What is the different between array and hash in perl programming?

0 Answers

How would you replace a char in string and how do you store the number of replacements?

2 Answers

Explain lists in perl?

0 Answers

List the operator used in Perl?