in reply to issue with print/join 2 arrays

use 5.010;

my @array1 = ( 1, 2, 3, 1, 2, 3, 1, 2, 3 );
my @array2 = qw( blue white yellow blue white yellow blue white yellow
+ );

say join ' ', map splice( $_, 0, 3 ), \@array1, \@array2 while @array1
+;

[download]

But beware, this is destructive to both arrays.

Replies are listed 'Best First'.
Re^2: issue with print/join 2 arrays
by Laurent_R (Canon) on Apr 29, 2014 at 21:18 UTC
    Although your solution is quite good and probably does what is wanted, I tend to prefer BrowserUk's, because it does not destroy the original array.

    Edit: added the word "not" which was missing and gave an opposite meaning to the last part of my sentence. Thanks to Bloodnok++ for having pointed out that mistake.

[reply]
      ... or, more particularly, BrowserUk's, because it doesn't destroy the array :-)

      A user level that continues to overstate my experience :-))
[reply]
Re^2: issue with print/join 2 arrays
by juanito23 (Novice) on Apr 30, 2014 at 09:19 UTC

    Hi, I don't have that version of perl so cannot apply that solution so, the "say" is not recognized.

    Any other way to make it work? My current version of perl is v5.8.8

    Thanks!

[reply]
      In this simple case, just 
      sub say { print @_, "\n" }

      [download]
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom