Re: 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;
[download]

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 [download] Update: Included code.	[reply] [d/l]

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
[download]

Update: Included code.

[reply]
[d/l]