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

jericho0702

　　perl里面也有SystemV的进程间通信/同步机制，和用C语言写的程序类似。 工作中用到了perl的进程间通信机制，其实只用到了二元信号灯而已，实现非常简单。
　　我用到的模块是： IPC::SysV 和 IPC::Semaphore 首先需要创建信号灯集对象，如下：

      $sem=IPC::Semaphore->new(1234,10,S_IRUSR|S_IWUSR|IPC_CREAT);
　　$sem就是信号灯集对象，new()方法中的S_IRUSR S_IWUSR等标志位是由IPC::SysV模块导出的，如果不导出这些标志位就使用，不会报错！但是没有作用！
　　创建好了对象，你就可以使用对象的方法了，常用的方法无非就是“初始化信号灯集”，“读信号灯集的值”，“操作信号灯集的值”，“删除信号灯集”。
　　初始化信号灯集 方法有： setall setval
　　读信号集的值 方法有： getall getval
　　操作信号灯集 方法有： op
　　删除信号灯集 方法有： remove 还有一些别的方法，我没用过就不是很了解了。
　　创建对象时，1参数为信号灯集名称，2参数为信号灯数量，3参数为标志位。 创建对象时，如果'1234'这个信号灯集已经存在，那么返回已存在的信号灯集，这种情况下如果设置了IPC_EXCL标志，返回的对象为空（就是创建不了对象啦！）。
　　关于IPC::Semaphore模块的更详细内容，去CPAN看吧。http://www.cpan.org

#!/usr/bin/perl
use 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;