Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: How to add missing part in a Hash of Array

by rnewsham (Curate)
on May 01, 2014 at 11:52 UTC ( #1084612=note: print w/replies, xml ) Need Help??


in reply to How to add missing part in a Hash of Array

One simple approach is to determine the highest key. Then loop over every possible key adding '-' if there is no value for that key. I have a feeling there may be a better way to do this for large datasets but on a small simple scale it works.

use strict; use warnings; my %data = ( 1 => 'A', 2 => 'B', 3 => 'C', 6 => 'D', 9 => 'E', 10 => 'F', ); my $max_key = 0; for ( keys %data ) { $max_key = $_ if $_ > $max_key; } for ( 1 .. $max_key ) { $data{$_} = '-' unless $data{$_}; } print "$_ : $data{$_}\n" for keys %data; #Outputs 6 : D 3 : C 7 : - 9 : E 2 : B 8 : - 1 : A 4 : - 10 : F 5 : -

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1084612]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2020-11-27 11:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?