linux fifo 例子,perl实现linux进程间的通信 perl FIFO的例子

#!/usr/bin/perl -w

#

#site: www.jquerycn.cn

my $cmd_ff = "./ffmpeg -i ....";

my $uuid = `uuidgen`;         // 生成不重名FIFO的名称

chomp $uuid;

system("mkfifo $uuid");       // 创建FIFO

my $pid_ffmpeg = fork;        // 创建进程

if (0 == $pid_ffmpeg)

{

// 子进程

open(STDERR, ">", $uuid);   // 将STDERR重定向到FIFO

exec($cmd_ff);              // 启动ffmpeg, 它的STDERR都输出到FIFO

}

else

{

// 主进程

$/="\r";

$|++;

open my $fh, "

while()                // 每次读取一行

{

// 处理每行的数据

}

}