Skip to main content
Formatação de código
Fonte Link
Isac
  • 25,5mil
  • 3
  • 31
  • 51

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 !.

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 !

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.

Fonte Link

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 !