Case insensative hash searches 1

[columb]

I have a code which takes its input in the form name,amount, i.e. a sample input file might read

Jones,10
Smith,20
Brown,33

All entries for the same name should be added together
My initial code is

use strict;

my %results;

open FH, "test.txt" or die "Can't open test.txt\n";

while (<FH>)
  {
  my ( $name, $amount ) = split /,/;
  $results{$name} and $results{$name} += $amount, next;
  $results{$name} = $amount;
  }
close FH;

foreach my $key ( keys %results )
  { print "$key has $results{$key} pounds\n"; }

What I would like is for entries
Brown,20
and
brown,15
to be added as the same key. Currently I get an entry for Brown and an entry for brown. Any pointers please?

Columb Healy
Living with a seeker after the truth is infinitely preferable to living with one who thinks they've found it.

 

[figmatalan]

Cheat and make them all lower case, e.g.

use strict;

my %results;

open FH, "test.txt" or die "Can't open test.txt\n";

while (<FH>)
  {
  my ( $name, $amount ) = split /,/;

  $name = lc($name);

  $results{$name} and $results{$name} += $amount, next;
  $results{$name} = $amount;
  }
close FH;

foreach my $key ( keys %results )
  { print "$key has $results{$key} pounds\n"; }

 

[columb]

Thanks figmatalan

Of course what I really want is them all converted to first char upper case, all others lower case but I'll work that one out as an exercise for the student!

Columb Healy
Living with a seeker after the truth is infinitely preferable to living with one who thinks they've found it.

 

[figmatalan]

you could use

$name = ucfirst(lc($name));