Re: appending arrays

[Bagarre]

This works but isn't pretty.

Any of the GreatOnes want to show us a more elegant solution?

foreach $item (@array1)
  {
  push @array3, $item .pop(@array2);
  }

[Abigail-II]

That will destroy @array2.

Abigail

[duff]

Any of the GreatOnes want to show us a more elegant solution?

I'm not a GreatOne, but here's how I might have done it assuming that I know the arrays are exactly the same size:

my $n = $#array1;
my @array3 = map { $array1[$_] . $array2[$n-$_] } 0..$n;

[freddo411]

[QM]

[hardburn]

That will get the data off the end of @array2, not the beginning. Use shift instead of pop.

Update: Nothing to see here. Move along. (Must read more carefully next time).

[Not_a_Number]

That will get the data off the end of @array2, not the beginning.

Err... Isn't that what the OP wanted? It works fine for me with the OP's data. OK, it destroys @array2, as Abigail-II pointed out. Just for fun, here's a solution that destroys both of the original arrays:

die "Arrays of different lengths" unless @array1 == @array2;
my @array3 = map { shift ( @array1 ) . pop ( @array2 ) } @array1;

dave