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;?