shmctl函数

首页 / Perl入门教程 / shmctl函数

描述

此功能使用带有ARG的CMD控制ID引用的共享内存段。您将需要导入IPC::SysV模块以获取下表中定义的命令令牌。

Command 	描述
IPC_STAT 	Places the current value of each member of
   the data structure associated with ID into
   the scalar ARG

IPC_SET 	Sets the value of the following members o
   of the data structure associated with ID to
   the corresponding values found in the packed
   scalar ARG

IPC_RMID 	Removes the shared memory identifier specified
   by ID from the system and destroys the shared
   memory segment and data structure associated
   with it

SHM_LOCK 	Locks the shared memory segment specified by ID
   in memory

SHM_UNLOCK 	Unlocks the shared memory segment specified by ID

语法

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

shmctl ID, CMD, ARG

返回值

该函数在失败时返回undef,返回0,但如果shmctl()的返回值为0,则返回true。

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

链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-shmctl.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

$key=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, &OPC_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

这一章《Perl - shmctl函数》你学到了什么?在下面做个笔记吧!做站不易,你的分享是对我们最大的支持,感谢!😊

好记忆不如烂笔头。留下你的足迹吧 :)

相关推荐

深入拆解Java虚拟机 -〔郑雨迪 - 〕

移动端自动化测试实战 -〔思寒 - 〕

视觉笔记入门课 -〔高伟 - 〕

手把手教你玩音乐 -〔邓柯 - 〕

在标准包含目录之后添加用户包含目录

R 从图像中提取文本并将其导出为 CSV

TimescaleDB 连续聚合:如何存储连续聚合结果

Flutter 将列内的行移动到页面底部

如何将鼠标悬停功能应用于 Svelte 中的组件

当我不相信我已经明确声明它们时,为什么给定 HashMap 中的值是可变的?

视频推荐

Perl 子程序的调用 更多视频教程 »