in reply to Removing multiple values

I want to take the resulting $name and $number arrays (I haven't pushed them into arrays yet, but you get the idea),

Is that a safe assumption to make? :-)
What for instance was @orf in your code?

Anyway try something like this: 


    my %averages;
    open DATA, "query.txt" or die "$!";
    $/ = "\n";
    while (<DATA>) {
       #split on consecutive sequences of spaces/tabs
       #i dont like naked splits.. personally...
       my ($key, $value) = split(" ",$_); 
       $averages{$key}->[0]+= $value;
       $averages{$key}->[1]++;
    }
    map {
             $averages{$_}=$averages{$_}->[0]/$averages{$key}->[1];
             $averages{$_}|=999;
             print "$key => $averages{$_}\n";
        } keys %averages;

[download]
UPDATE: Fixed split call to read split(" ",$_) instead of split(/s+/,$_) Which isnt the same thing at all. Also read Hofmators excellent comment on this issue in this reply

Hope that helps.

Oh and you should in future indent your code properly, post your data and make no assumptions about what us the readers know understand or whatever about it and what you are trying to do.

Thats called pot luck. :-)

Yves
--
You are not ready to use symrefs unless you already know why they are bad. -- tadmc (CLPM)

Replies are listed 'Best First'.
Re: Re: Removing multiple values
by Hofmator (Curate) on Sep 07, 2001 at 18:35 UTC

    Good suggestions, demerphq++. A small detail

    my ($key, $value) = split(/s+/,$_); #i dont like naked splits.. personally...
    It's OK to not like this bare split, but you should be aware that your version is behaving differently if $_ has leading whitespace, so to write it long and correctly, do this: 
    $_ = "  key    value";
my ($key, $value) = split(" ",$_);

# note: this behaves differently
my ($key, $value) = split(/ /,$_);

    [download]
    Try it out and see the difference, this is documented in split as well.

    -- Hofmator

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom