Re: Combining client phone lists

I strongly recommend using strictures (use strict; use warnings;), although that is not what is biting you here. In fact your code performs as I would expect (although normalizing whitespace in names would be a good idea - 2 entries for Bob Wilson):

use strict;
use warnings;

my %bigList;

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

    $client =~ tr/0-9().-//d;
    $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";
}

__DATA__
Wanda Smith (332)432-9887
Freddie Sonere 442-9089
Bob Wilson 332-454-9932

Bob Cartwright (821)987-0089
Felix Harris 433.344.8711
Bob Wilson (888)821- 2248

Sam Burr 455-0327
Gloria Simpson (821)544-9341
Wanda Smith 444-9721
[download]

Prints:

Bob Cartwright  8219870089
Bob Wilson  3324549932
Bob Wilson   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: Combining client phone lists Select or Download Code

Replies are listed 'Best First'.
Re^2: Combining client phone lists by volcan (Novice) on Apr 20, 2007 at 05:09 UTC
Thanks for the tip about "normalizing whitespace." The input is supposed to be three different input files (to simulate three salesmen's phone lists) and not all part of one file. I probably didn't explain that well enough. When I run the code, I'm not getting Bob Wilson but once. I don't know why he'd show up twice in yours...perl sure is a tricky lang. Here's the output I'm getting: `Bob Cartwright 8219870089 Bob Wilson 3324549932, 8888212248 Felix Harris 4333448711 Freddie Sonere 4429089 Gloria Simpson 8215449341 Sam Burr 4550327 Wanda Smith 4449721, 3324329887` [download] How do I spy on the input to recognize when a client name has been read with more than one phone number and output a list of those? For example, if I have Gloria Simpson showing up in one list w/ her home number and in another list with her cell number, how do I make a list of her (and others w/ multiple ph. numbers) like this: `Gloria Simpson 888324543, 7338733 Someone Else 44409323, 4332111` [download] 'Preciate your help.	[reply] [d/l] [select]
Re^3: Combining client phone lists by GrandFather (Saint) on Apr 20, 2007 at 05:29 UTC
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	[reply] [d/l] [select]
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
Re^6: Combining client phone lists by volcan (Novice) on Apr 20, 2007 at 06:09 UTC
Re^5: Combining client phone lists by naikonta (Curate) on Apr 20, 2007 at 05:44 UTC