Re: 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.

Comment on Re: issue with print/join 2 arrays Download Code

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]
Re^3: issue with print/join 2 arrays by Bloodnok (Vicar) on Apr 30, 2014 at 09:27 UTC
... 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]
Re^3: issue with print/join 2 arrays by choroba (Cardinal) on Apr 30, 2014 at 09:21 UTC
In this simple case, just `sub say { print @_, "\n" }` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^3: issue with print/join 2 arrays by Anonymous Monk on Apr 30, 2014 at 09:20 UTC
see say and use print instead juanito23	[reply]


Welcome to the Monastery
	PerlMonks