Perl Logging

Möchte man den Ablauf seiner Skripte über das Syslog-System dokumentieren, kann man das Modul Sys::Syslog nutzen.

#!/usr/bin/perl

use Sys::Syslog qw( :DEFAULT setlogsock);

$user = $ENV{‘USER’};

setlogsock(‘unix’);
openlog($0,,‘user’);
syslog(‘info’, "data received, user = $user");
closelog;

This entry was posted in Software and tagged . Bookmark the permalink.

Hinterlasse eine Antwort

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *

*

Du kannst folgende HTML-Tags benutzen: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>