Deseo obtener el valor promedio de acuerdo a las fechas de inicio y fecha fin ingresadas por el usuario. Los registros obtenidos están formados por las fechas solicitadas ($datIni y $datFin) más el tiempo formado por hora y minuto.
Agradeceré su apoyo para validar la creación del hash de hashes (%HoH). Se ve que el primer signo es un {, y de acuerdo a la referencia mostrada más abajo ésta debería ser un (.
Comparto el código:
do {
# Ejecuto consulta a la base de datos creando las variables para
# verificar que existen registros con valor.
while (existan registros) {
$fecha = reg->{‘date’};
$fecha = reg->{‘hh_mm’};
$fecha = reg->{‘valor’};
if ($valor != not ‘null’) {
$med++; # total mediciones aumenta
$hora_valor += $valor;
# Asignación de valores al %HoH
$HoH{$aux_dateini}{$hm} = $valor;
}
}
} while ( $datIni->add(days => 1) <= $datFin );
Lo imprimo y se muestra así:
print Dumper (\%HoH);
$VAR1={‘2023-01-01’=>{’00:08’=>’-23’, ’01:18’=>’-27’,…, ’23:59’=>’399’},’2023-01-02’=>{’00:08’=>’41’, ’01:14’=>’-37’,…, ’23:59’=>’111’}}
Mi pregunta es: ¿Estoy creando bien el %HoH? Ya que en base a https://www.geeksforgeeks.org/perl-multidimensional-hashes/ indica éste otro formato, donde el primer signo es un ( y no {.
my %company = (
'Sales' => {
'Brown' => 'Manager',
'Smith' => 'Salesman',
'Albert' => 'Salesman',
},
'Marketing' => {
'Penfold' => 'Designer',
'Evans' => 'Tea-person',
'Jurgens' => 'Manager',
},
'Production' => {
'Cotton' => 'Paste-up',
'Ridgeway' => 'Manager',
'Web' => 'Developer',
},
);
print "Traversing hash using For loop:\n";