linux进程间的通信(Perl):FIFO应用示例

很简单的一个FIFO应用示例,
两个进程间,使用FIFO进行通信.

闲言少述,直接上文:

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

  2. my $uuid = `uuidgen`;         // 生成不重名FIFO的名称
  3. chomp $uuid;
  4. system("mkfifo $uuid");       // 创建FIFO


  5. my $pid_ffmpeg = fork;        // 创建进程
  6. if (== $pid_ffmpeg)
  7. {
  8.   // 子进程
  9.   open(STDERR, ">", $uuid);   // 将STDERR重定向到FIFO
  10.   exec($cmd_ff);              // 启动ffmpeg, 它的STDERR都输出到FIFO
  11. }
  12. else
  13. {
  14.   // 主进程
  15.   $/="\r";                    
  16.   $|++;
  17.   open my $fh, "<", $uuid;    // 以FIFO为输入,并定位其到变量$fh
  18.   while(<$fh>)                // 每次读取一行
  19.   {
  20.     // 处理每行的数据
  21.   }
  22. }

你可能感兴趣的:(linux,linux,linux)