IPC::SysV和IPC::Msg

dl0622

好像很难看懂啊，特别是这两句红色处：
$key = IPC::SysV::ftok("MSG_PATH",1);
$msg =new IPC::Msg($key,0666|IPC_CREAT) or die "new fail!";

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use IPC::SysV qw(IPC_PRIVATE S_IRWXU S_IRWXG S_IRWXO IPC_CREAT IPC_NOWAIT);
   
6. use IPC::Msg;
   
7. my ($key,$msg,$msgtype,$buf);
   
8. $key = IPC::SysV::ftok("MSG_PATH",1);
   
9. $msg =new IPC::Msg($key,0666|IPC_CREAT) or die "new fail!";
   
10. $msgtype = 1;
    
11. $msg->snd($msgtype,"abc123456",IPC_NOWAIT) or die "snd fail!";
    
12. $msg->rcv($buf,1024) or die "rcv fail!";
    
13. print $buf,"\n";
    

复制代码

dl0622

我在cpan上搜了一下那两个模块，介绍太短了，希望大家帮忙解答一下那两句，谢谢！

huhuegg

应该可以参照IPC::Shareable