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;