in reply to Reference on List & Arrays Difference

$l_ref = \(1,2,3,4);

[download]
Here you are taking a reference to the result of evaluating the list (1,2,3,4) in scalar context, which is 4: 
# perl -le '$l_ref = \(1,2,3,4); print $l_ref'
SCALAR(0x8150310)
# perl -le '$l_ref = \(1,2,3,4); print $$l_ref'
4

[download]

so you end up with an anonymous scalar holding the value 4.

You want to use 

$l_ref = [ 1,2,3,4 ];

[download]

to create an anonymous array (or array reference).

A list is not a perl data type, it's just some grouping of elements, so you can't create a reference to that. You can only take a reference to what comes out of evaluating that grouping expression, which is not an array in your case, but the number of elements inside the list result of the comma operations inside the parens.

update: Corrected interpretation of what's inside the parens. Thanks, Anno.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: Reference on List & Arrays Difference
by Anno (Deacon) on Mar 11, 2007 at 12:58 UTC
    You wrote about this bit of code 
    $l_ref = \(1,2,3,4);

    [download]

    A list is not a perl data type, it's just some grouping of elements, so you can't create a reference to that. You can only take a reference to what comes out of evaluating that grouping expression, which is not an array in your case, ...

    Correct, and well said.

    ... but the number of elements inside the list.

    That's wrong. It's (a reference to) the last of the scalar expressions that were strung together with the scalar comma operator. Changing the code to 

    $l_ref = \(1,2,3,99);

    [download]
    makes the difference apparent.

    Anno

[reply]
[d/l]
[select]
      Oh..! Thanks for correcting that. So the (1,2,3,4) is not even interpreted as a list, but as a grouping of operands and operators which evaluation results in the last (rightmost) operand.

      You never stop to learn...

      --shmem 

      _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
[reply]
        Exactly! As the saying goes: There is no list in scalar context.

        Anno

[reply]
      To elucidate further, \( 1, 2, 3, 4 ) is just short for ( \1, \2, \3, \4 ): 
      $ perl -le'
    use Data::Dumper;
    @x = \( 4, 5, 6, 7 );
    print Dumper \@x;
'
$VAR1 = [
          \4,
          \5,
          \6,
          \7
        ];

$ perl -le'
    use Data::Dumper;
    @x = ( \4, \5, \6, \7 );
    print Dumper \@x;
'
$VAR1 = [
          \4,
          \5,
          \6,
          \7
        ];

      [download]
      And the assignment to a scalar does the same thing with or without the backslash(es): 
      $ perl -le'
    use Data::Dumper;
    $x = ( 4, 5, 6, 7 );
    print Dumper $x;
'
$VAR1 = 7;

$ perl -le'
    use Data::Dumper;
    $x = \( 4, 5, 6, 7 );
    print Dumper $x;
'
$VAR1 = \7;

$ perl -le'
    use Data::Dumper;
    $x = ( \4, \5, \6, \7 );
    print Dumper $x;
'
$VAR1 = \7;

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom