ミスティーネットレンタルサーバー－ MISTY-NET － Perl･CGI講座　関数検索 >> msgctl

[関数の使い方･書式]

○ ＝ msgctl ☆,★,□

☆：	(スカラー)	キューID。･･･操作対象の指定。msgget などで取得。
★：	(スカラー)	コマンド定数。･･･削除などの操作の指定。
□：	(スカラー)	コマンド定数★が＆IPC_RMID のときは０。＆IPC_STAT のときはかえされる msqid_ds 構造体を格納する変数。
○：	(スカラー)	msgctl システムコールが返した値がそのまま返される。ただし０のときは "0 but true" となる。エラー時は偽(未定義値)を返します。

[関数の機能]

既に存在するメッセージキューの属性を取得･変更したり､キューを削除します。

● 主なコマンド定数

IPC_STAT メッセージキューの状況(msqid_ds 構造体) を第３引数の変数にセットします。

IPC_RMID 指定したキューIDを持つメッセージキューを削除します。プラットフォームで SYSTEMV IPC がサポートされている必要があります。エラー発生時には､ $！にエラーコードがセットされます。

&IPC_STAT フラグをセットして変数に格納した値から､unpack 関数を使って個々のメンバーの値を取り出すことは一応可能です。しかし､msqid_ds 構造体のサイズやメンバーの位置などはプラットフォームによって異なっている為､C言語などを使ってこれらを調査した上でテンプレートを作成する必要があります。

[書式の例]

$ret = msgctl $gid, $command, $buffer;

● コマンドラインからキューIDを与え､該当するメッセージキューを削除します。

require "sys/ipc.ph";
require "sys/msg.ph";
$| = 1;
$gid = shift;
unless (defined $gid) { die "Usage:$0 message queue ID\n" }
$ret = msgctl($gid, &IPC_RMID, 0);
# if (!difined($ret) || $ret < 0 ) {
if (! $ret) {
	die "メッセージキューの削除失敗: $!\n";
}
else {
	print "メッセージキュー $qid を削除しました。\n";
}



	\| HOME \| ご利用について \| 推奨環境 \| リンクに関して \| 免責/規約 \| お問合せ \| ミスティーネット \| リンク集 \|