Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: One Hash Instead of Two

by Dru (Hermit)
on Feb 06, 2007 at 21:25 UTC ( #598643=note: print w/replies, xml ) Need Help??


in reply to One Hash Instead of Two

All,

Thank you for your help. This is the code I decided to go with:
my %hash; while (<FILE>){ next unless /Something/; if (/<LONG REGEX>/){ if ($hash{$3}){ $hash{$3}{count}++; next; } $hash{$3} = { sig => $1, src => $3, proto => $2, dst => $4, port => $5, }; } }
davorg,

I based my code on yours, just changed it a bit. Thanks for the tip on Data::Dumper, I've heard about it before, just never used it. Very cool

McDarren,

Believe it or not, one entry from each source is all I really need. I believe this code will speed things up a bit since it will count the source and go to the next one if we already have it.

fenLisesi,

Thanks, I tend to do that more then I wish to admit.

frodo72,

Thanks for the code and reply. If I need to build the more complex data structure, I'll probably do something similar to what you gave me. I'll just have to brush up on perlreftut first.

-Dru

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://598643]
help
Chatterbox?
[erix]: heh

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2018-04-25 17:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?