Re: How to find the repeated text in hash

Assuming you mean to count the number of occurrences of the same value for different keys in a hash (%names in the example below)

...
my %name_count;
for my  $name (values %names){
   $name_count{$name}++;
}
for my $name (sort {$name_count{$a}<=>$name_count{$b}} keys %name_coun
+t){
  print "$name occurs $name_count{$name} times in the \%names hash\n";
}
[download]

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Comment on Re: How to find the repeated text in hash Select or Download Code

Replies are listed 'Best First'.
Re^2: How to find the repeated text in hash by Anonymous Monk on Feb 09, 2015 at 14:26 UTC
It's also possible that codewalker wants to add the key "Name" to a hash three times, and wants to detect the collision and re-name the second and third keys to "Name2" and "Name3". Your guess is as good as mine, that's the problem!	[reply]
Re^2: How to find the repeated text in hash by BillKSmith (Monsignor) on Feb 10, 2015 at 14:54 UTC
My guess is that the OP wants to edit the values of an existing hash. Each value that is not unique should be made so by appending an integer. `use strict; use warnings; use Data::Dumper; my %example = ( a => 'red', b => 'blue', c => 'red', d => 'green', e => 'red', ); my %desired = ( a => 'red', b => 'blue', c => 'red1', d => 'green', e => 'red2', ); my %seen; while (my ($letter, $color) = each %example) { if ($seen{$color}++) { $example{$letter} = $color . $seen{$color}; next; } $example{$letter} = $color } print Dumper( \%desired, \%example );` [download] UPDATE: Added example. Bill	[reply] [d/l]
Re^3: How to find the repeated text in hash by QM (Parson) on Feb 10, 2015 at 14:59 UTC
This is a minimalist answer, and is easily ambiguous: Each value that is not unique should be made so by appending an integer. Perhaps you mean something like: Before inserting a hash key, if it already exists, string increment the key and try again. -QM -- Quantum Mechanics: The dreams stuff is made of	[reply]