Re: list references

They both seem to produce the same thing: $ref=\(1..3); will return a reference to the last thing in the list of references namely a scalar reference to 3 (as usually happens with lists on the right and scalars on the left). But then again so does $enum_list_ref. That is

use Data::Dumper;
use strict;
use warnings;

my $ref=\(1..3);
my $oth_ref = \(1,2,3);

print Dumper $ref,$oth_ref

__OUTPUT__
$VAR1 = \3;
$VAR2 = \3;
[download]

On the other hand @a=(\(1..3),\(5..9)); will flatten the lists out before assigning to the array so you get the same thing as if you had written:

@a = (\1,\2,\3,\5,\6,\7,\8,\9);
[download]

the same thing would happen with @a=(\(1,2,3),\(5,6,7,8,9)) That is:

use Data::Dumper;
use strict;
use warnings;

my @array = \(1 .. 3, 5 ..9);
my @array2 = \(1,2,3,5,6,7,8,9);
my @array3 = (\(1 ..3),\(5,6,7,8,9));

print Dumper \@array,\@array2,\@array3

__OUTPUT__
$VAR1 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR2 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR3 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
[download]

-enlil

Comment on Re: list references Select or Download Code

Replies are listed 'Best First'.
Re^2: list references by sleepingsquirrel (Chaplain) on Jun 15, 2004 at 23:41 UTC
Maybe I've got a funky version of perl. When I run both your snippets I get answers different from yours. For the first program I get... `greg@sparky:~/test$ cat enlil1 #!/usr/bin/perl use Data::Dumper; use strict; use warnings; my $ref=\(1..3); my $oth_ref = \(1,2,3); print Dumper $ref,$oth_ref greg@sparky:~/test$ ./enlil1 $VAR1 = [ 1, 2, 3 ]; $VAR2 = \3;` [download] ...and for the second... `greg@sparky:~/test$ cat enlil2 #!/usr/bin/perl use Data::Dumper; use strict; use warnings; my @array = \(1 .. 3, 5 ..9); my @array2 = \(1,2,3,5,6,7,8,9); my @array3 = (\(1 ..3),\(5,6,7,8,9)); print Dumper \@array,\@array2,\@array3; greg@sparky:~/test$ ./enlil2 $VAR1 = [ [ 1, 2, 3 ], [ 5, 6, 7, 8, 9 ] ]; $VAR2 = [ \1, \2, \3, \5, \6, \7, \8, \9 ]; $VAR3 = [ [ 1, 2, 3 ], \5, \6, \7, \8, \9 ];` [download] Here's what my 'perl -V' looks like... Read more... (3 kB) -- All code is 100% tested and functional unless otherwise noted.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: list references
by sleepingsquirrel (Chaplain) on Jun 15, 2004 at 23:41 UTC

greg@sparky:~/test$ cat enlil1
#!/usr/bin/perl

use Data::Dumper;
use strict;
use warnings;

my $ref=\(1..3);
my $oth_ref = \(1,2,3);

print Dumper $ref,$oth_ref


greg@sparky:~/test$ ./enlil1
$VAR1 = [
          1,
          2,
          3
        ];
$VAR2 = \3;
[download]

greg@sparky:~/test$ cat enlil2
#!/usr/bin/perl
use Data::Dumper;
use strict;
use warnings;

my @array = \(1 .. 3, 5 ..9);
my @array2 = \(1,2,3,5,6,7,8,9);
my @array3 = (\(1 ..3),\(5,6,7,8,9));

print Dumper \@array,\@array2,\@array3;
greg@sparky:~/test$ ./enlil2
$VAR1 = [
          [
            1,
            2,
            3
          ],
          [
            5,
            6,
            7,
            8,
            9
          ]
        ];
$VAR2 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR3 = [
          [
            1,
            2,
            3
          ],
          \5,
          \6,
          \7,
          \8,
          \9
        ];
[download]