Perl 中的 shmget函数

描述

此函数返回段匹配KEY的共享内存段ID。创建一个新的共享内存段(至少SIZE个字节),前提是KEY尚未具有与其关联的段,或者KEY等于常量IPC_PRIVATE。

语法

以下是此函数的简单语法-

shmget KEY, SIZE, FLAGS

shmget KEY

返回值

如果失败,此函数返回undef；如果成功,则返回共享内存ID。

无涯教程网

链接：https://www.learnfk.comhttps://www.learnfk.com/perl/perl-shmget.html

来源：LearnFk无涯教程网

例

以下是显示其基本用法的示例代码-

#!/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