...and for each not equal element keep the greatest one.
So if I'm understanding correctly, you want to apply some kind of max() function on the corresponding row values.
use strict; use warnings; use Data::Dumper; my $array_ref_x = [ [ 'ALICE WONDER', '9876543', '2009', '11.00', '711', '0', '0', '8' ], [ 'ALICE WONDER', '9876543', '2009', '11.00', '711', '3', '2', '0' ], ]; my $all_val = [ @{$array_ref_x->[0]} ]; my $i = 0; for my $row (@{$array_ref_x->[1]}) { $all_val->[$i] = $row if $row gt $all_val->[$i]; # assign greates +t $i++; } print Dumper $all_val; __END__ $VAR1 = [ 'ALICE WONDER', '9876543', '2009', '11.00', '711', '3', '2', '8' ];
Use > instead of gt of your understanding of "greatest" is in the numeric sense. Also, you could of course handle more than two arrays similarly by putting another loop around it...
In reply to Re: Keeping Unique Elements in Array!
by almut
in thread Keeping Unique Elements in Array!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |