这到底是为什么？perl semaphore

2011-09-05 03:26:58 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WPS JS宏实战：批量调整200个Word表格格式的避坑指南（附完整代码）本文提供了一份详尽的WPS JS宏实战指南，针对批量调整大量Word表格格式的需求。文章深入解析了如何利用JS宏自动化设置字体、行距和边框，并重点解决了常见的“首行访问报错”等核心难题，附有可直接使用的完整代码，帮助用户显著提升文档处理效率。阅读详情

#!/usr/bin/perl

use strict;

use IPC::SysV qw(IPC_CREAT S_IRUSR GETVAL SETVAL);

our $id;

$id= semget(1234,0,0666|IPC_CREAT);

print "$id/n";



&setval();

my $kkk=&getval();

print $kkk;

while(1) {

&lock();

print "lock";

&setval();

print "unlock";

sleep (1);

}



sub lock()

{

    my $oper = pack("s!s!s!",0,-1,0);

    semop($id,$oper);

}



sub unlock()

{

    my $oper = pack("s!s!s!",0,1,0);

    semop($id,$oper);

}

sub getval()

{

    my $kkk = semctl($id,0,GETVAL,0);    

    return $kkk;

}

sub setval()

{

     semctl($id,0,SETVAL,1);

}

上面是小弟写的程序，但是执行的时候为什么进程就睡眠了？把while循环注销了就能正常运行了，平生第一次郁闷的碰到这个事情，明白的解释下