Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Hash element exists/delete

by vinoth.ree (Prior)
on Jan 22, 2013 at 08:50 UTC ( #1014601=note: print w/ replies, xml ) Need Help??


in reply to Hash element exists/delete

if ($hash{lc $keys} = $hash{$z}) You are using "=" Assignment Operator ?

Update:
use strict; use warnings; use Data::Dumper; my %final=(); my %hash =( 1=>'the', 2=>'The', 3=>'word', 4=>"Word",5=>'ree',6=>"REE" +); foreach my $keys(keys %hash) { foreach my $keys1(keys %hash) { if(lc($hash{$keys}) eq $hash{$keys1}) { $final{lc($hash{$keys})}++; } } } print Dumper \%final;

Is that Useful? Done in your way.


Comment on Re: Hash element exists/delete
Select or Download Code
Replies are listed 'Best First'.
Re^2: Hash element exists/delete
by tmharish (Friar) on Jan 22, 2013 at 08:54 UTC

    Also, you dont need the second loop - You can make use of the fact that you are using a hash.

    use strict ; use warnings ; my @data = <DATA> ; my %freq_hash ; # What you call '%hash' foreach my $single_line ( @data ) { chomp( $single_line ) ; my ( $word, $freq ) = split( / /, $single_line ) ; $freq_hash{ $word } = $freq ; } ## So far all we have done is get data ## print "\nData Before Process:\n"; foreach my $word (sort { $freq_hash{ $b } <=> $freq_hash{ $a } } keys +%freq_hash ) { print "$word\t\t$freq_hash{$word}\n"; } foreach my $word ( keys %freq_hash ) { if( ( lc( $word ) ne $word ) and $freq_hash{ lc( $word ) } ) { $freq_hash{ lc( $word ) } += $freq_hash{ $word } ; delete( $freq_hash{ $word } ) ; } } print "\nData After Process:\n"; foreach my $word (sort { $freq_hash{ $b } <=> $freq_hash{ $a } } keys +%freq_hash ) { print "$word\t\t$freq_hash{$word}\n"; } __DATA__ the 1 The 1 hello 15 hell 19 Hell 8

    Update: Included code.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014601]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2015-07-29 04:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls