Hash Question in Perl

deadletter · December 20, 2001, 5:33pm

Learning Perl here, so bear with me... Have a hash that i need to delete the entry out of and am having problems doing that. Basically, I need to delete all entries from the hash that have values over 5,000,000. What I am trying to do is to find each entry and delete it. Does not work - I have made many changes but either the program will not compile or the hash entries are still there
Can gurus help?

#!/usr/bin/perl
%messages = qw (1 342 2 4567 3 5999876 4 5768);
foreach $value (values (%messages)) > 5000000 {
delete $value.... #this is the line
}
print %messages, "\n";

auswipe · December 28, 2001, 1:29am

While I am not a guru, here is a quick and easy solution that I came up with...

#!/usr/bin/perl

%messages = qw (1 342 2 4567 3 5999876 4 5768);

foreach $value (sort { $messages{$b} <=> $messages{$a} } (keys(%messages))) {
  if ($messages{$value} > 5000000) {
    delete $messages{$value}; # .... #this is the line
  };
}

foreach $value (keys(%messages)) {
  print "$value - $messages{$value}\n";
};

I am sure that there is a better way to do it. AFAIK, there isn't a break available for a foreach loop to stop the looping when a $messages{$value} less than 5,000,000 is found.

deadletter · December 28, 2001, 9:46am

That is a clever piece of code, man. Thanks a lot, man. BTW, I posted the same question on techrepublic.com and could not get any decent answers. That makes you a guru.

auswipe · December 28, 2001, 1:57pm

I wonder when can I expect my GuruMan patch in the mail?

Ha!Ha!Ha!Ha!

I make myself laugh.

summer_cherry · July 17, 2008, 2:30am

example:
delete those <=5

%hash=(a,1,b,2,c,3,d,5,e,9,f,10,u,15);
foreach $key (keys %hash){
delete($hash{$key}) if $hash{$key}<=5;
}
foreach $key (keys %hash){
print $key,"-->",$hash{$key},"\n";
}

matrixmadhan · July 17, 2008, 2:52am

auswipe:

While I am not a guru, here is a quick and easy solution that I came up with...
#!/usr/bin/perl

%messages = qw (1 342 2 4567 3 5999876 4 5768);

foreach $value (sort { $messages{$b} <=> $messages{$a} } (keys(%messages))) {
  if ($messages{$value} > 5000000) {
   delete $messages{$value}; # .... #this is the line
  };
}

foreach $value (keys(%messages)) {
  print "$value - $messages{$value}\n";
};
I am sure that there is a better way to do it. AFAIK, there isn't a break available for a foreach loop to stop the looping when a $messages{$value} less than 5,000,000 is found.

Just to kindle some good suggestion -
Does sorting here makes it a better solution, unless its an array and we are sure of the index, sorting a hash will not help us to escape from scannig each and every element of the hash.

so, basically I mean - even if you are sorting, you have to scan through each and every element of the hash.

I feel, sorting is not needed here

KevinADC · July 17, 2008, 5:07pm

summer_cherry:

example:
delete those <=5

%hash=(a,1,b,2,c,3,d,5,e,9,f,10,u,15);
foreach $key (keys %hash){
delete($hash{$key}) if $hash{$key}<=5;
}
foreach $key (keys %hash){
print $key,"-->",$hash{$key},"\n";
}

This is the third or forth ancient thread you have dug up to post a reply to, see the date of the threads before replying:

12-28-2001 <-----------

Even a thread one/two months old is pushing it, but 7+ years is beyond ridiculous.