Perl Перенаправление ошибки в стандартный лог

# usage: require 'syslog.pl';
#
# then (put these all in a script to test function)
#
#
# do openlog($program,'cons,pid','user');
# do syslog('info','this is another test');
# do syslog('mail|warning','this is a better test: %d', time);
# do closelog();
#
# do syslog('debug','this is the last test');
# do openlog("$program $$",'ndelay','user');
# do syslog('notice','fooprogram: this is really done');
#
# $! = 55;
# do syslog('info','problem was %m'); # %m == $! in syslog(3)

Murr loh, nakonec to ya yegio raskusil
chto-to tipa STDERR = fd (do etogo fd = open(..) )

тупому лоху-анонимусу: я отвечал на вопрос в subj "перенаправление ошибки в стандартный лог" ...

Интересно, что только анонимусы могут гордиться тем, что не отличают STDERR от "стандартного файла ошибок" и "стандартного лога", и даже после подсказки "не пользоваться system" до тупенького умишки онанизмуса не дошло о чем идет речь... зато сопли до колена отвисли... иди учись, мальчик.

1) Вообще-то переопределять дескрипторы не так надо, perldoc peripc. 2) а какой лог является стандартным? /var/log/httpd/suexec_log ?

/var/log/messages?

С этит разберется чел, настраивавший syslog.

А по теме:

perldoc Sys::Syslog

И ваще на CPAN всяких Unix::Syslog завались.

LOL :))) "С этит разберется чел, настраивавший syslog." - например админ http://masterhost.ru/ :)))

хотя, впрочем, вопрос не полный... что и как...

Sys::Syslog не знаю, наверное подойдет, но неспортивно как-то...

#!/usr/bin/perl -w

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

my $pid = open (STDERR, "|-");
if(defined($pid) && !$pid)
{
    setlogsock('unix');
    openlog('testlog', 'pid', 'local0') || die "$!";
    syslog('info', "Starting testlog");
    while(<>)
    {
        chomp;
        syslog('err', $_);
    }
    closelog();
    exit;
}

# _только пример_ какой-нить бяки, плюющей в stderr

system("make fignya");