in reply to Joining array into new string

#!perl
use strict;
use Data::Dumper;

#my @groups = [ [ 23,24,25 ], [ 22,21,20 ] ];
# change      ^                            ^

my @groups = ( [ 23,24,25 ], [ 22,21,20 ] ); 
my $perms = join ',', 
            map { join ',', @$_ } @groups  ;
print Dumper $perms;

[download]
poj

Replies are listed 'Best First'.
Re^2: Joining array into new string
by stevieb (Canon) on Sep 19, 2018 at 21:31 UTC

    ++, but please explain the actual problem. Pointers are fine (I use them all the time), but denote them with an explanation of what you mean in human terms.

    Even if OP gets the point (no pun intended), others reading this may not.

[reply]
[d/l]

      To be fair to poj, The question he originally asked is "how can I" not "why doesn't it work?"

      For the benefit of others: The OP created an outer anonymous array containing two other inner anonymous arrays by using the square brackets. From the @groups array perspective, it only contains a single element, the outer anonymous array. It doesn't "see" the other anonymous arrays inside of it. When you try to join on an array with a single element, you just get the single element returned because there's nothing really to join. The ARRAY(0x...) you see is the string that perl spits out when you print an anonymous array. It represents the location of the array in the computer's memory (I think Perl's virtual machine's memory, to be more precise).

      $PM = "Perl Monk's";
      $MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest";
      $nysus = $PM . ' ' . $MCF;
      Click here if you love Perl Monks

[reply]
[reply]
[d/l]

In Section Seekers of Perl Wisdom