syslog出力について

質問

solarisでperlでsyslogに出力するとき、メッセージIDとプライオリティを出力することができません。

loggerコマンドだと、
logger -p user.info -t UUU テストメッセージ
を実行すると、syslogには、
Jan 7 18:37:25 HOST UUU: [ID 702911 user.info] テストメッセージ
と出力されます。

しかし、次のperlプログラムを実行しても、
#!/bin/perl
use Sys::Syslog qw(:DEFAULT setlogsock);
setlogsock('inet');
openlog("UUU","cons",LOG_USER);
syslog(LOG_INFO,"テストメッセージ");
closelog();

syslogには、
Jan 7 18:44:01 HOST UUU: テストメッセージ
としか表示されません。

[ID 702911 user.info]を表示することはできないのでしょうか？

回答No.1

t-okura · ベストアンサー

solaris の syslog って、少し変わった形式で出るのですね。

こんな形で自分で組み立ててはいかがでしょうか。
my $str = "テストメッセージ";
my ($msgid) = split /\s+/, `echo $str | msgid`, 2;
syslog(LOG_INFO,"[ID $msgid user.info] $str");

お礼

私も文字列を自分で作るしかないのかなあ、と思っていました。しかし、恥ずかしいながら、msgidコマンドを知りませんでした。ありがとうございました。