关于syslog-ng使用perl脚本作为source的问题

Perl_Er

我的配置文件如下，其中的shell脚本可以工作，但是perl的就不行。perl和shell脚本的作用都是一样的，打印一些输出。

1. [root@James etc]# cat syslog-ng.conf
   
2. @version: 3.0
   
3. #Default configuration file for syslog-ng.
   
4. #
   
5. # For a description of syslog-ng configuration file directives, please read
   
6. # the syslog-ng Administrator’s guide at:
   
7. #
   
8. # http://www.balabit.com/dl/html/syslog-ng-admin-guide_en.html/bk01-toc.html
   
9. #
   
10. options {
    
11. # Number of syslog lines stored in memory before being written to files
    
12. flush_lines (0);
    
13. log_fifo_size (2048);
    
14. create_dirs (yes);
    
15. perm (0640);
    
16. dir_perm (0750);
    
17. };
    
18. 
    
19. 
    
20. 
    
21. source ppp { program("/root/perl/test.pl"); };
    
22. destination ppp {
    
23. file ("/var/log/syslog-ng/$HOST/perl.pl.log" create_dirs(yes));
    
24. };
    
25. log {
    
26.         source(ppp);
    
27.         destination(ppp);
    
28. };
    
29. 
    
30. source sss { program("/root/shell/test.sh"); };
    
31. destination sss {
    
32. file ("/var/log/syslog-ng/$HOST/test.sh.log" create_dirs(yes));
    
33. };
    
34. log {
    
35.         source(sss);
    
36.         destination(sss);
    
37. };
    

复制代码