Anonymous user
Write to Windows event log: Difference between revisions
using Win32::EventLog
(using Win32::EventLog) |
|||
Line 358:
: (call 'logger "This" 'is "another" 'test)
-> T</lang>
=={{header|Perl}}==
The Win32::EventLog module has the Report method to write in the EventLog
<lang perl>
use strict;
use warnings;
use Win32::EventLog;
my $handle = Win32::EventLog->new("Application");
my $event = {
Computer => $ENV{COMPUTERNAME},
Source => 'Rosettacode',
EventType => EVENTLOG_INFORMATION_TYPE,
Category => 'test',
EventID => 0,
Data => 'a test for rosettacode',
Strings => 'a string test for rosettacode',
};
$handle->Report($event);
</lang>
=={{header|PureBasic}}==
| |||