use strict;
use warnings;
use Data::Dump qw(pp);
use Data::Dumper;
$|=1; #turn off stdio buffering
my %HoH = ( "2023-01-01" => { "00:00" => 1234,
"01:00" => 789,
"02:00" => 456, },
"2023-02-01" => { "00:00" => 4321,
"01:00" => 987,
"02:00" => 654, },);
for my $dia (sort keys %HoH){
print "
$dia: \n";
for my $horarios (sort keys %{$HoH {$dia}}){
print "$horarios=>" . $HoH{$dia}{$horarios} . "\n";
}
}
print "VALUE:
";
print $HoH{"2023-01-01"}{"00:00"}; #I couldn't see the value
print "\n\n";
pp \%HoH;
print "\n\n";
print Dumper \%HoH;
__END__
Prints:
br>2023-01-01:
00:00=>1234
01:00=>789
02:00=>456
2023-02-01:
00:00=>4321
01:00=>987
02:00=>654
VALUE:
1234
{
"2023-01-01" => { "00:00" => 1234, "01:00" => 789, "02:00" => 456 },
"2023-02-01" => { "00:00" => 4321, "01:00" => 987, "02:00" => 654 },
}
$VAR1 = {
'2023-02-01' => {
'01:00' => 987,
'02:00' => 654,
'00:00' => 4321
},
'2023-01-01' => {
'00:00' => 1234,
'02:00' => 456,
'01:00' => 789
}
};