...
my @test = ();
foreach my $data ( @{ $test_data } ) {
warn Dumper $row_data;
push @test, [
$data->{ ID },
$data->{ Name },
$data->{ Number },
$data->{ CODE },
] if $data->{ Name } = '';
}
...
####
$VAR1 = {
'ID' => '1212',
'Name' => 'JOE',
'Number' => 'XY1',
'CODE' => '6',
};
$VAR1 = {
'ID' => '1212',
'Name' => '',
'Number' => 'XY1',
'CODE' => '10',
};
$VAR1 = {
'ID' => '4456',
'Name' => 'MARIA',
'Number' => 'TYX',
'CODE' => '6',
};
$VAR1 = {
'ID' => '4456',
'Name' => '',
'Number' => 'TYX',
'CODE' => '10',
};
$VAR1 = {
'ID' => '8765',
'Name' => 'JEAN',
'Number' => 'HPO',
'CODE' => '6',
};
####
$VAR1 = {
'ID' => '1212',
'Name' => 'JOE',
'Number' => 'XY1',
'CODE' => '10',
};
$VAR1 = {
'ID' => '4456',
'Name' => 'MARIA',
'Number' => 'TYX',
'CODE' => '10',
};
$VAR1 = {
'ID' => '8765',
'Name' => 'JEAN',
'Number' => 'HPO',
'CODE' => '6',
};