Thanks Rhose. This has it started.
I did some mods to the code for my environment, and not being fluent yet in HoHs, or any more advanced data structures, I'm going to throw back my mods and plea for aid. I've looked at the perldsc, but I'm still a bit fuzzy. Heading in the right direction, but need a bit more of a push. Here the code:
#!/usr/bin/perl
use strict;
use warnings;
my $line;
my $Error;
my $Data;
my $File = "L:\\cybor\\20040831.log";
open FILE, $File || die "Can't open log file: $!";
while(<FILE>)
{
# chomp;
#@_=split(',');
foreach $line (<FILE>) {
@_=split(',');
$Data->{$_[1]}->{$_[3]}++;
}
}
foreach my $User (sort keys %{$Data})
{
print 'User: ',$User,"\n";
foreach my $Error (sort keys %{$Data->{$User}})
{
print ' [',$Error,'] happened ',$Data->{$User}->{$Error},' time(s
+)',"\n";
}
}
Here's the output from cygwin:
User: wfmccahi
[P - Password Reset
] happened 172 time(s
+)
So, it's not counting quite right. The phrase "P - Password Reset" only occurs four times in the file in question. Any suggestions?
Thanks,
monger
Monger
+++++++++++++++++++++++++
Munging Perl on the side
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.