I am working on a script to read in a firewall logfile, pull out the IP addresses of denied packets, then give me a count per IP address, and perform a whois on each address. This previously ran as a VERY SLOW shell script. In bourne, I used sort and then uniq to get a count per IP address. Is there something similar to uniq within perl? (I already have it sorting correctly)
Craig Hammer Internal Infrastructure Team Lead Parago, Inc. 972-538-3936
