#!/usr/bin/perl
$yuaiho17_birth = "2000.05.15";
use Sys::Syslog;
#Sys::Syslog;は大体標準で入っているはずです。
openlog("プログラム名", "pid", "facility名");
# syslogへのソケットオープン。ハンドラは使いません。
# Aug 23 00:00:01 host プログラム名[pid]:
#"pid"はPIDを記録するか否か。facilityはuserとか、local0とかのアレ。
# すべて変数での代入は可能。
syslog("info", "%s %d since %s", "Yuaiho", "17", $yuaiho17_birth);
#syslogに書き込み、第1変数はpriority(infoとかemergとか)
# 第2変数が書き込む内容。sprintfと同じ。
#closelogを呼び出すまで何回でも呼び出せる。
closelog();
# syslogのソケットを閉じる。