Re^2: Add value from one array element into another of same ID

I think your code is doing something in reverse, noticed that I need to keep the values in the node where CODE => 10. But if I change the value in "Number" and run the code, it gets overwritten from the value in the node with "6":

use strict;
use warnings;
use Data::Dumper;

my $test_data = [
    {'ID' => '1212', 'Name' => 'JOE'  , 'Number' => 'XY1', 'CODE' =>  
+'6',},   
    {'ID' => '1212', 'Name' => ''     , 'Number' => 'WW3', 'CODE' => '
+10',},
    {'ID' => '4456', 'Name' => 'MARIA', 'Number' => 'TYX', 'CODE' =>  
+'6',},
    {'ID' => '4456', 'Name' => ''     , 'Number' => 'TYX', 'CODE' => '
+10',},
    {'ID' => '8765', 'Name' => 'JEAN' , 'Number' => 'HPO', 'CODE' =>  
+'6',},
];

my @result;
foreach my $data ( @{ $test_data } ) {
    next if !$data->{Name};
    my $id = $data->{ID};
    push @result, $data;
    foreach my $temp ( @{ $test_data } ) {
        if (!$temp->{Name} and ($temp->{ID} eq $id)) {
            $result[-1]->{CODE} = $temp->{CODE};
            last;
        }
    }
}

print Dumper(\@result);
[download]

When it should be like this after running the code:

 {'ID' => '1212', 'Name' => 'JOE'     , 'Number' => 'WW3', 'CODE' => '
+10',},
[download]

Comment on Re^2: Add value from one array element into another of same ID Select or Download Code

Replies are listed 'Best First'.

Re^3: Add value from one array element into another of same ID
by BillKSmith (Monsignor) on May 28, 2021 at 03:24 UTC

...
$result[-1]->{CODE} = $temp->{CODE};
$result[-1]->{Number} = $temp->{Number};
...
[download]

I thought that I understood your requirements, but now I am not sure. I now think that you want one output record for each ID. For each ID, the input should contain one named record and possible one unnamed one. Output for any other input would be undefined. We probably cannot make any assumptions about record order. In the single record case, we output that record. In the two record case, we output the unnamed record with the value of its name field replaced with the name from the other record.

Bill

[reply]
[d/l]


Don't ask to ask, just ask
	PerlMonks