Re^5: Combining client phone lists

So you want reporting code like:

my @single = grep {keys (%{$bigList{$_}}) == 1} keys %bigList;
my @multi = grep {keys (%{$bigList{$_}}) > 1} keys %bigList;

for my $one (@single) {
    print "$one ", join ', ', sort {$a <=> $b} keys %{$bigList{$one}};
    print "\n";
}

print "\n\nClients with multiple phone numbers:\n\n";
for my $one (@multi) {
    print "$one ", join ', ', sort {$a <=> $b} keys %{$bigList{$one}};
    print "\n";
}
[download]

Prints:

Gloria Simpson 8215449341
Sam Burr 4550327
Freddie Sonere 4429089
Felix Harris 4333448711
Bob Cartwright 8219870089


Clients with multiple phone numbers:

Bob Wilson 3324549932, 8888212248
Wanda Smith 4449721, 3324329887
[download]

DWIM is Perl's answer to Gödel

Comment on Re^5: Combining client phone lists Select or Download Code

Replies are listed 'Best First'.
Re^6: Combining client phone lists by volcan (Novice) on Apr 20, 2007 at 06:09 UTC
Grep....of course! Sometimes when you finally see how to have gotten something done you want to kick yourself for not having figured it out. Perl seems to fight me, but a little at a time the edges are softening. Thank you so much for your help! 8^}	[reply]