Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Perl Script to parse Windows Event Logs

by brap (Pilgrim)
on Dec 07, 2012 at 14:19 UTC ( #1007747=note: print w/replies, xml ) Need Help??

in reply to Perl Script to parse Windows Event Logs

Hi kar_thik82,

What about keeping a running count of each event log, and then printing the total?

my @log_type =("Application", "Security", "Setup", "System", "Forwarde +d Events"); my $total_events = 0; foreach $logs_type (@log_type) { #print "$logs_type\n"; Win32::EventLog::Open($EventLog, $logs_type,'') or die "Could not open System log:$^E\n"; $EventLog->Win32::EventLog::GetNumber($numevents); $total_events += $numevents; # print "$EventLog->Win32::EventLog::GetNumber($numevents)\n"; } print "Total number of events: $total_events\n";

Not exactly tested, but hopefully enough to illustrate the point.

Replies are listed 'Best First'.
Re^2: Perl Script to parse Windows Event Logs
by kar_thik82 (Novice) on Dec 07, 2012 at 17:33 UTC

    Thanks Brap It works for me.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007747]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2018-06-23 01:42 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.