Re: filtering and dividing an array

in reply to filtering and dividing an array

For joining the two arrays into a single array below is the example. The operation will be done for the number of elements in the array1, i.e., if there are 4 elements in the list then first 4 elements will be processed irrespective of the number of elements in array2.

#/usr/bin/perl

use Data::Dumper;

## Populating the Arrays with some values.
@array1 = ( 1,2,3,4 ) ;
@array2 = ( 'one', 'two', 'three', 'four' );

## Initialise the index for the array
$i = 0;


## Join the two array 'array1', 'array2' in a single array named 'arra
+y'
map {  $array[$i][0] = $array1[$i] ; $array[$i][1] = $array2[$i]; $i++
+  } @array1 ;

print Dumper @array;
[download]

I am not sure whether you have asked this !!

Comment on Re: filtering and dividing an array Download Code

Replies are listed 'Best First'.
Re^2: filtering and dividing an array by oko1 (Deacon) on Nov 29, 2008 at 14:03 UTC
That's not exactly what I would call "joining two arrays"; you've actually created a List of Lists. Joining arrays is much simpler than that: `my @a = 1 .. 4; my @b = "a" .. "d"; my @c = (@a, @b); # You could even do this - no need to create a new variable: @a = (@a, @b); # Or... push @a, @b;` [download] There's also no need for the complex and hard-to-read map statement if you wanted to create a LoL; just as in your example, this assumes that the first array is the same length or shorter than the second one: `my @c; push @c, [ $a[$_], $b[$_] ] for 0 .. $#a;` [download] Update: Added the "Or..." "push" method. -- "Language shapes the way we think, and determines what we can think about." -- B. L. Whorf	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: filtering and dividing an array
by oko1 (Deacon) on Nov 29, 2008 at 14:03 UTC

That's not exactly what I would call "joining two arrays"; you've actually created a List of Lists. Joining arrays is much simpler than that:

my @a = 1 .. 4; my @b = "a" .. "d";
my @c = (@a, @b);

# You could even do this - no need to create a new variable:
@a = (@a, @b);

# Or...
push @a, @b;
[download]

There's also no need for the complex and hard-to-read map statement if you wanted to create a LoL; just as in your example, this assumes that the first array is the same length or shorter than the second one:

my @c;
push @c, [ $a[$_], $b[$_] ] for 0 .. $#a;
[download]

Update: Added the "Or..." "push" method.

--
"Language shapes the way we think, and determines what we can think about."
-- B. L. Whorf

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom