Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Counting the number of times several strings appear

by thundergnat (Deacon)
on Nov 13, 2012 at 17:52 UTC ( #1003680=note: print w/ replies, xml ) Need Help??


in reply to Counting the number of times several strings appear

Maybe you can adapt something like this...

use warnings; use strict; my %log; while (my $line = <DATA>){ chomp $line; next unless length $line; my ($event, $time) = split / at /, $line; push @{$log{$event}}, $time; } for my $key (keys %log){ print $key, ${$log{$key}}[0] ? " at ${$log{$key}}[0]" : ''; print "\nThe above event occurred ", $#{$log{$key}}, " additional +times.\n"; } __DATA__ User logged in successfully at 10:35:33 User logged in successfully at 10:35:34 User logged in successfully at 10:35:35 Error: Login failure! User logged in successfully at 10:35:37 Error: Login failure! Error: System failure at 01:23:22 Error: System failure at 01:23:40 User logged in successfully at 10:35:39 Error: System failure at 01:23:41

Yields: (on my system, output order may vary.)

Error: Login failure!
The above event occurred 1 additional times.
Error: System failure at 01:23:22
The above event occurred 2 additional times.
User logged in successfully at 10:35:33
The above event occurred 4 additional times.


Comment on Re: Counting the number of times several strings appear
Download Code
Re^2: Counting the number of times several strings appear
by cspctec (Sexton) on Nov 13, 2012 at 18:19 UTC

    Thank you, that seems to be exactly what I needed

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1003680]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (13)
As of 2014-07-25 18:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (174 votes), past polls