perl的进程间同步互斥机制（信号灯集）
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;
页:
[1]