Perl shmget用法及代碼示例

描述

此函數返回與 KEY 匹配的段的共享內存段 ID。創建一個至少 SIZE 字節的新共享內存段，前提是 KEY 還沒有與之關聯的段，或者 KEY 等於常量 IPC_PRIVATE。

用法

以下是此函數的簡單語法 âˆ'

shmget KEY, SIZE, FLAGS

shmget KEY

返回值

此函數在失敗時返回 undef，成功時返回共享內存 ID。

示例

以下是顯示其基本用法的示例代碼 -

#!/usr/bin/perl

# Assume this file name is writer.pl

use IPC::SysV;

#use these next two lines if the previous use fails.
eval 'sub IPC_CREAT {0001000}' unless defined &IPC_CREAT;
eval 'sub IPC_RMID {0}'        unless defined &IPC_RMID;

$key  = 12345;
$size = 80;
$message = "Pennyfarthingale.";

# Create the shared memory segment

$id = shmget($key, $size, &IPC_CREAT | 0777 ) or die "Can't shmget:$!";

# Place a string in itl
shmwrite( $id, $message, 0, 80 ) or die "Can't shmwrite:$!";


sleep 20;

# Delete it;

shmctl( $id, &IPC_RMID, 0 ) or die "Can't shmctl:$! ";

編寫一個讀取器程序，它檢索與 $key 對應的內存段並使用 shmread(); 讀取其內容。

#!/usr/bin/perl

# Assume this file name is reader.pl

$key = 12345;
$size = 80;

# Identify the shared memory segment
$id = shmget( $key, $size, 0777 ) or die "Can't shmget:$!";

# Read its contents itno a string
shmread($id, $var, 0, $size) or die "Can't shmread:$!";

print $var;

現在先在後台運行 writer.pl 程序，然後在後台運行 reader.pl 然後它會產生以下結果。

$perl writer.pl&
$perl reader.pl

Pennyfrathingale