Re^3: Combining client phone lists

Ok, three files, Bob Wilson white space fixed and it still works as I'd expect and, as far as I can tell, in the fashion you desire. Where's the problem?

use strict;
use warnings;

open TEMP, '>', 'temp1.txt';
print TEMP <<FILE;
Wanda Smith (332)432-9887
Freddie Sonere 442-9089
Bob Wilson 332-454-9932
FILE
close TEMP;

open TEMP, '>', 'temp2.txt';
print TEMP <<FILE;
Bob Cartwright (821)987-0089
Felix Harris 433.344.8711
Bob Wilson (888)821- 2248
FILE
close TEMP;

open TEMP, '>', 'temp3.txt';
print TEMP <<FILE;
Sam Burr 455-0327
Gloria Simpson (821)544-9341
Wanda Smith 444-9721
FILE
close TEMP;

my %bigList;

local @ARGV = qw(temp1.txt temp2.txt temp3.txt);

while (<>) {
    chomp $_;
    next unless length;
    
    my $inp = $_;
    my $client = $inp;
    my $num = $inp;

    $client =~ tr/0-9().-//d;
    $client =~ s/\s*$//;
    $num =~ tr/ a-zA-Z().-//d;
    
    #make big list
    $bigList{$client}{$num}++;
}

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

Prints:

Bob Cartwright 8219870089
Bob Wilson 3324549932, 8888212248
Felix Harris 4333448711
Freddie Sonere 4429089
Gloria Simpson 8215449341
Sam Burr 4550327
Wanda Smith 4449721, 3324329887
[download]

DWIM is Perl's answer to Gödel

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

Replies are listed 'Best First'.
Re^4: Combining client phone lists by volcan (Novice) on Apr 20, 2007 at 05:38 UTC
I'm trying to make a list of those clients who have more than one phone number, so that the output would be something like this: `Bob Cartwright 8219870089 Bob Wilson 3324549932, 8888212248 Felix Harris 4333448711 Freddie Sonere 4429089 Gloria Simpson 8215449341 Sam Burr 4550327 Wanda Smith 4449721, 3324329887 Clients with multiple phone numbers: Bob Wilson 3324549932, 8888212248 Wanda Smith 4449721, 3324329887` [download]	[reply] [d/l]
Re^5: Combining client phone lists by GrandFather (Saint) on Apr 20, 2007 at 05:43 UTC
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	[reply] [d/l] [select]
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]
Re^5: Combining client phone lists by naikonta (Curate) on Apr 20, 2007 at 05:44 UTC
Eh? I think I'm lost. Is your last reply a testimonial or a further question? As far as I can see, GrandFather already answered your problem exactly as you want. Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!	[reply]