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

很简单的一个FIFO应用示例，

两个进程间，使用FIFO进行通信.

闲言少述，直接上文:

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