Re: Hash element exists/delete

[roboticus]

in reply to Hash element exists/delete

Dr. Manhattan:

While there are a few interesting topics, no-one has mentioned that the easiest way to remove the upper-case characters is not to have any in the first place:

my %H;
while (<>) {
   my @words = map { lc }       # map all words to lower case
               split /\s+/, $_; # break $_ into a list of words
   $H{$_}++ for @words;         # add words to hash
}

If you needed the upper-case versions at some point, then this may not be useful. But people frequently miss the opportunity to clean up the data before storing it, so I thought I'd mention it, just in case.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[tmharish]

Update:

roboticus, You have assumed that the input is a list of words but it is of the format:

Word Frequency
Word Frequency
Word Frequency
Word Frequency

Given this, the code should probably be:

my %H;
while (<>) {
    my ( $word, $freq ) = split /\s+/, $_;
    $word = lc( $word ) ;
    $H{ $word } += $freq ;
}

Although that does not change your primary thesis: people frequently miss the opportunity to clean up the data before storing it

The way to achieve this with minimum changes to your code is in my original response:

Original Response:

I think you meant:

$H{ $words[0] } += $words[1] ;

[roboticus]

tmharish:

Yes, I was making an assumption about the input. For your input format, your code looks appropriate.

...roboticus

When your only tool is a hammer, all problems look like your thumb.