http://qs1969.pair.com?node_id=556440

ministry has asked for the wisdom of the Perl Monks concerning the following question:

Monks,

I have a very simple (complex) data structure, and would like to know if there would be any short-cuts to my declaration:

my(%lookup)=( 'site1' => {'0' =>'0', '1' =>'0', '2' =>'0', '3' =>'0', '4' =>'0', '5' =>'0', '6' =>'0', '7' =>'0', '8' =>'0', '9' =>'0', '10'=>'0', '11'=>'0', '12'=>'0', '13'=>'0', '14'=>'0', '15'=>'0', '16'=>'0', '17'=>'0', '18'=>'0', '19'=>'0', '20'=>'0', '21'=>'0', '22'=>'0', '23'=>'0',}, 'site2' => {'0'=>'0', ... '23'=>'0',}, } };

In my code I will end up repeating this 24 hour time stamp as the key to my HoH, for each site. Probably 3 dozen sites in all. Any input would be most appreciated.

cheers! -Ev

Good judgement comes with experience. Unfortunately, the experience usually comes from bad judgement.