perl如何接收数据？

屠龙

类似以下几种情况，perl如何接收数据？

local1.*                                        | /usr/local/myapp/syslog/log.pl

ls -Rl | lst.pl

laputa73

stdin

1. #!/bin/env perl
   
2. #cat tpipe.pl | tpipe.pl
   
3. use strict;
   
4. while(<STDIN>){
   
5.   print "===$_";
   
6. }

复制代码

pitonas

{:2_172:} 这个好强！谢谢大牛！
回复 2# laputa73


   

屠龙

不行

redpig315

一看就知道你要处理系统日志，或者做个日志服务器，跟你说吧，syslog 或者 syslog-ng不支持脚本的这种方式。。。如果你要接受系统的输入，你还是在研究研究 syslog，或者其他

bikong0411

或者你可以使用个sock文件

laputa73

syslog的场景是不行的.
       This version of syslogd has support for logging output to named pipes (fifos).  A fifo or  named  pipe  can  be
       used  as  a  destination for log messages by prepending a pipy symbol (‘‘|’’) to the name of the file.  This is
       handy for debugging.  Note that the fifo must be created with the mkfifo command before syslogd is started.

              The following configuration file routes debug messages from the kernel to a fifo:

                   # Sample configuration to route kernel debugging
                   # messages ONLY to /usr/adm/debug which is a
                   # named pipe.
                   kern.=debug              |/usr/adm/debug
直接用perl监控log文件就好了

ls是可以的.

屠龙

shell是可以做到的：

在syslog.conf中设置

local0.*                                        | /usr/local/myapp/syslog/log.sh

然后写log.sh:

#!/bin/sh
read stuff
su -l pgsql -c "psql -h localhost -d devlog -U devlog_user_db" << QUERY_SQL
insert into "mylog" (event) values ('$stuff');
\q
exit
QUERY_SQL


想来perl应该也可以做得到吧！

屠龙

主要是搞不清楚perl如何接收数据

laputa73

回复 9# 屠龙


  my   $stuff=<STDIN>
就等效于read stuff

你确信你的shell可以?