Skip to main content
1 de 2

Converter arrays para hash

estou 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",...);

preciso 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",
...

);

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 estou buscando no BD. Estou tentando o dia todo e não consegui até agora, tentei com map e com while mas acho que não estou fazendo certo

Obrigado !