Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Reading Event Viewer

by jonsey80 (Initiate)
on Jan 29, 2014 at 15:02 UTC ( #1072530=perlquestion: print w/replies, xml ) Need Help??
jonsey80 has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I am new to perl and am trying to write a script which will search the system event viewer for 'disk' events, log the amount of alerts and write the message into a log file.

I have called the Win32::eventviewer module, and when i run this programme i get

Goto undefined subroutine &AutoLoader::AUTOLOAD at C:/Perl/lib/Win32/EventLog.pm line 50, <MYFILE> line 3.

I'm a bit lost at what is happening. the code is below:

calling the module:

use Win32::EventLog; # Module to access event Log for step 3
segment of code using event viewer:
$handle= New Win32::EventLog("System"); $i = 0; #sets up the counter for amount of alerts $count = 1; while($handle->read((EVENTLOG_SEEK_READ|EVENTLOG_FORWARDS_READ,$count, +$event))){ if($event->{source} eq 'disk'){ Win32::EventLog::GetMessageText($event); $i = $i +1; open(EVENT,'>Eventviewer.log') or die 'unable to open file'; print EVENT $event->{Message}."\n"; } else{ open(EVENT,'>Eventviewer.log') or die 'unable to open file'; print EVENT "No Disk errors Found"; } $count=$count+1; } $handle->Close
Eventually will print out the value of $i as well in a separate summary file as well as list all disk events in the eventviewer.log Any help on what im doing wrong would be appreciated - i have read the CPAN pages and anything else i can on this module but still at a lost. Thank you in advanced.

Replies are listed 'Best First'.
Re: Reading Event Viewer
by keszler (Priest) on Jan 29, 2014 at 19:21 UTC
    According to Win32::EventLog there is no read method. There is a Read method.
      had not noticed the caps - changed it to Read, made no difference error remains. thank you anyhow
        also the n in New should be new - which was causing the continuation of the error.
Re: Reading Event Viewer (MyEventLog)
by Anonymous Monk on Jan 29, 2014 at 21:11 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1072530]
Approved by Corion
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (2)
As of 2017-03-30 01:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (353 votes). Check out past polls.