perl的进程间同步互斥机制（信号灯集）

????? perl里面也有SystemV的进程间通信/同步机制，和用C语言写的程序类似。 工作中用到了perl的进程间通信机制，其实只用到了二元信号灯而已，实现非常简单。

?

????? 我用到的模块是： IPC::SysV 和 IPC::Semaphore 首先需要创建信号灯集对象，如下：

?

#!/usr/bin/perluse IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR IPC_CREAT);use IPC::Semaphore;my $sem;if ($sem=IPC::Semaphore->new(1234,10,S_IRUSR | S_IWUSR | IPC_CREAT | IPC_EXCL)) {  # 能创建，说明‘1234’是第一次创建$sem->setall( (1) x 10 );                             # 初始化所有信号灯为1} else {                                                  # 不能创建，说明‘1234’已存在$sem=IPC::Semaphore->new(1234,10,                     # 获得‘1234’信号灯集S_IRUSR | S_IWUSR | IPC_CREAT);}#查看所有信号灯的值@sem=$sem->getall;print "@sem\n";# P操作$sem->op(0, -1, IPC_NOWAIT,);# V操作$sem->op(0, 1, IPC_NOWAIT,);#查看所有信号灯的值@sem=$sem->getall;print "@sem\n";#$sem->remove;

?