Values From Multiple Arrays

[blnukem]

Hi All

I'm REALLY lost on getting this to work maybe someone can help me I have
three arrays that look like this:

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

and I want to output this format:

john car red
bill house blue
peter motorcycle green
james house teal

Thank to all in advance
Blnukem

 

[Gunnar Hjalmarsson]

I'm REALLY lost on getting this to work maybe someone can help me

What have you tried??

I have three arrays that look like this:

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

and I want to output this format:

john car red
bill house blue
peter motorcycle green
james house teal

while (@Array1) {
print (shift @Array1, ' ');
print (shift @Array2, ' ');
print (shift @Array3, "\n");
}

 

[Anno Siegel]

Hi All

I'm REALLY lost on getting this to work maybe someone can help me I have
three arrays that look like this:

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

and I want to output this format:

john car red
bill house blue
peter motorcycle green
james house teal

Ah, ye olde transposition problem.

print join( ' ', map shift @$_, \ ( @Array1, @Array2, @Array3)), "\n" while @Array1;

This destroys the original arrays.

Anno

 

[Anno Siegel]

Hi All

I'm REALLY lost on getting this to work maybe someone can help me I have
three arrays that look like this:

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

and I want to output this format:

john car red
bill house blue
peter motorcycle green
james house teal

Ah, ye olde transposition problem.

print join( ' ', map shift @$_, \ ( @Array1, @Array2, @Array3)),
"\n" while @Array1;

This destroys the original arrays.

Anno

 

[Jürgen Exner]

I'm REALLY lost on getting this to work maybe someone can help me I
have three arrays that look like this:

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

and I want to output this format:

john car red
bill house blue
peter motorcycle green
james house teal

What's the problem? Assuming the arrays have the same length:
for (0..$#Array1) {
print "$Array1[$_] $Array2[$_] $Array3[$_]\n"
}

jue

 

[Brad Baxter]

I'm REALLY lost on getting this to work maybe someone can help me I have
three arrays that look like this:

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

and I want to output this format:

john car red
bill house blue
peter motorcycle green
james house teal

The Array::Each module will do this ...

use strict;
use warnings;
use Array::Each;

my @Array1 = qw(john bill peter james);
my @Array2 = qw(car house motorcycle house);
my @Array3 = qw(red blue green teal);

my $set = Array::Each->new( \( @Array1, @Array2, @Array3 ) );

while( my( $dude, $moneysink, $color ) = $set->each ) {
print "$dude $moneysink $color\n";
}

__END__
john car red
bill house blue
peter motorcycle green
james house teal


http://search.cpan.org/~bbaxter/Array-Each-0.02/Each.pm

Regards,

Brad