You
can take the reference of a subroutine's return value. You did just that, and can see it with:
use feature qw( say );
use Data::Dumper;
sub foo{
return (0, 1);
}
my $var = \(foo()); # $var IS a reference to the last item of *list*
+(0, 1)
say Dumper($var);
# Prints $VAR = \1;
To make it more obvious, try this:
sub foo{
return ('blue', 'green');
}
my $var = \(foo());
say Dumper($var);
# Prints $VAR = \'green';
What's happening is that you're returning a list that gets evaluated in scalar context, whose behavior is to take the last item of the list.
If you want to capture the whole list, try returning an ARRAY reference instead (then you don't even need the extra reference):
use feature qw( say );
use Data::Dumper;
sub foo{
return [ 'blue', 'green' ];
}
my $var = foo(); # Give me my ARRAY ref!
say Dumper($var);
# Prints $VAR1 = [
# 'blue',
# 'green'
# ];
say
substr+lc crypt(qw $i3 SI$),4,5
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.