P is for Practical | |
PerlMonks |
Re: Hashes for countingby fullermd (Priest) |
on Aug 07, 2010 at 10:32 UTC ( [id://853535]=note: print w/replies, xml ) | Need Help?? |
Well, for one thing, this line:
is way more complicated than necessary. Firstly, you don't need the internal -> dereferences, and second, why repeat yourself instead of just using an increment?
Second, since (at least in the code you're giving) you're not tracking anything but the times_connect, you don't need that extra layer anyway; just make $has{$peer_address} the count:
(of course, if you're tracking more info in reality you wouldn't want to do that, but...) And third, since perl data structure autovivify, you don't need the branch doing special stuff based on whether $has{$peer_address} already exists. You can just do the increment unconditionally, and it'll start at 0++ (a.k.a., 1) if it's not already set. Since you have ++$has{$peer_address}; in your else branch, it rather reads like you sorta intended to do this in the first place, but then you do other weird stuff elsewhere...
In Section
Seekers of Perl Wisdom
|
|