Perl/ログ/Sys-Syslog のバックアップの現在との差分(No.1)

バックアップ一覧
差分を表示
ソースを表示
バックアップを表示
Perl/ログ/Sys-Syslog へ行く。
- 1 (2009-06-09 (火) 19:09:51)

追加された行はこの色です。
削除された行はこの色です。

* Sys::Syslog [#hd8495c5]

 use POSIX qw/setlocale LC_ALL
 use Sys::Syslog;
 
 setlocale(LC_ALL,'C');
 openlog '', {pid=>1}, 'local0'
ロケールを設定しないと、余計なタイムスタンプが書き込まれたので。
 $program = $0;
 openlog "$program $$", 'ndelay', 'user';         # 'user'もしくはLOG_USER （ファシリティ）
 syslog 'info', 'this is %s', ' a test message';  # 'info'もしくはLOG_INFO （レベル）
 closelog;

** 参考 [#cd8b8f63]
- http://search.cpan.org/perldoc?Sys::Syslog
- ファシリティ・レベル http://search.cpan.org/perldoc?Sys::Syslog#CONSTANTS