in reply to How to set hash values to '-' .
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11118040 use warnings; my %hash = ( 1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 }, 4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 }, ); use Data::Dump 'dd'; dd \%hash; for my $day ( 1 .. 4 ) { $hash{$day} = { Balance => '-', day => $day, payment => '-', Total = +> '-' , %{ $hash{$day} // {} } }; } use Data::Dump 'dd'; dd \%hash;
Outputs:
{ 1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 }, 4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 }, } { 1 => { Balance => 183.57, day => 1, payment => 0, Total => 0 }, 2 => { Balance => "-", day => 2, payment => "-", Total => "-" }, 3 => { Balance => "-", day => 3, payment => "-", Total => "-" }, 4 => { Balance => 12.86, day => 4, payment => 0, Total => 0 }, }
In Section
Seekers of Perl Wisdom