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;

相关推荐