estouEstou dando algumas manutenções em um sistema em Perl (linguagem que sou noob) e precisei criar um novo módulo de relatório onde preciso resolver a seguinte situação:
Tenho 2 arrays com os seguintes formatos
@head = ("nomeinstituicao", "cnpjinstituicao","nomecliente", "cnpjcliente", "notacliente" );
@data = ("inst1", "12345678000112","joao", "87654321000198","5","inst2","54387612000123","maria","45612387000123","6",...);
@head = ("nomeinstituicao", "cnpjinstituicao","nomecliente", "cnpjcliente", "notacliente" );
@data = ("inst1", "12345678000112","joao",
"87654321000198","5","inst2","54387612000123","maria","45612387000123","6",...);
precisoPreciso produzir um hash no seguinte formato:
%hash = (
"nomeinstituicao" => "inst1",
"cnpjinstituicao" => "12345678000112",
"nomecliente" => "joao",
"cnpjcliente" => "87654321000198",
"notacliente" => "5",
"nomeinstituicao" => "inst2",
"cnpjinstituicao" => "54387612000123",
"nomecliente" => "maria",
"cnpjcliente" => "45612387000123",
"notacliente" => "6",
...
);
%hash = (
"nomeinstituicao" => "inst1",
"cnpjinstituicao" => "12345678000112",
"nomecliente" => "joao",
"cnpjcliente" => "87654321000198",
"notacliente" => "5",
"nomeinstituicao" => "inst2",
"cnpjinstituicao" => "54387612000123",
"nomecliente" => "maria",
"cnpjcliente" => "45612387000123",
"notacliente" => "6",
...
);
Alguém poderia me ajudar com uma forma de fazer esta transformação de maneira dinâmica levando em consideração que os dados contidos em $data$data
estou buscando no BD.
Estou
Estou tentando o dia todo e não consegui até agora, tentei com mapmap
e com whilewhile
mas acho que não estou fazendo certo
Obrigado !.