Programmieren mit Perl

Sys::Syslog

use Sys::Syslog;                          # Läßt setlogsock aus.
use Sys::Syslog qw(:DEFAULT setlogsock);  # Berücksichtigt auch setlogsock.

openlog($program, 'cons,pid', 'user');
syslog('info', 'Dies ist ein Test');
syslog('mail |warning', 'Dies ist ein besserer Test: %d', time());
closelog();

syslog('debug', 'Dies ist der letzte Test');

setlogsock('unix');
openlog("$program $$", 'ndelay', 'user');
syslog('info', 'Problem war %m'); # %m == $! im syslog-Chinesisch.
syslog('notice', 'fooprogram: Ich habe fertig.');

setlogsock("unix");               # "inet" oder "unix"
openlog("myprogname", $logopt, $facility);
syslog($priority, $format, @args);
$oldmask = setlogmask($mask_priority);
closelog();

Das Sys::Syslog-Modul verhält sich wie die syslog (3)-Funktion Ihrer C-Bibliothek, ...