[関数の使い方･書式]

○ ＝ semop ☆,★

☆：	(スカラー)	セマフォID。 ･･･ semget などで得たID。存在しないとエラー。
★：	(スカラー)	操作コマンド。 ･･･ semop構造体にパックされたコマンド。
○：	(スカラー)	成功時は真(１)､エラー時は偽(未定義値)を返します。

---

[関数の機能]

セマフォの取得や解放などの操作を行ないます。
操作コマンドとなる semop構造体は次のようにして作成します。

$opstring = pack("s*", $num, $op, $flag);

一つのセマフォIDで複数のセマフォを作成した場合は、packの引数の $num には操作の対象となるセマフォ番号を指定します。 但し､１番目のセマフォは０で指定します。$op にセットする値とセマフォの操作の金木は次のようになります。

$op	セマフォの値	操作
＜ ０	>= abs($op)	セマフォの値から abs($op) を減算。
＜ ０	<= abs($op)	セマフォの値 >= abs($op) となるまでブロックされる。 このときセマフォの値は abs($op) 分減算される。
＝＝ ０	== 0	システムコールは直ちに戻る。
＝＝ ０	!= 0	呼び出した側のプロセスは、セマフォの値 == 0 となるまでブロックする。
＞ ０		$op の値がセマフォの値に加算される。

abs() は絶対値を表しています。
フラグには &IPC_NOWAIT と &SEM_UNDO が指定できます。 なお､コマンドの個数は $opstring の長さによって判別されます。
プラットフォームで SYSTEMV IPC がサポートされている必要があります。 エラー発生時には、$! にエラーコードがセットされます。

---

[書式の例]

semop($id, $opstring);

● セマフォ値が０になるまで待機し､獲得時セマフォ値を増数してメッセージを出力
require "sys/ipc.ph";
require "sys/msg.ph";
$| = 1;

# セマフォIDを取得する
$id = shift;
unless (defined $id) { die "Usage: $0 SemphoreID\n"; }
$semnum = 0;
# セマフォが０になるまで待機
$opstring1 = pack("sss", $num, 0, 0);
# セマフォの値を増数
$opstring2 = pack("sss", $num, 1, 0);
$opstringA = $opstring1 . $opstring2;
semop($id, $opstring) || die "Semaphore trouble: $!\n";
print "処理完了\n";


● セマフォ値が１になるまで待機し､獲得時セマフォ値を増数してメッセージを出力
# セマフォIDを取得する
$id = shift;
die "Usage: $0 SemphoreID\n" unless defined($id);
$semnum = 0;
# セマフォの値を増数
$opstringB = pack("sss", $semnum, -1, 0);
semop($id, $opstringB) || die "Semaphore trouble: $!\n";
print "セマフォ獲得\n";