- Perl 基础知识
- Perl - 主页
- Perl - 简介
- Perl - 环境
- Perl - 语法概述
- Perl - 数据类型
- Perl - 变量
- Perl - 标量
- Perl - 数组
- Perl - 哈希
- Perl - IF...ELSE
- Perl - 循环
- Perl - 运算符
- Perl - 日期和时间
- Perl - 子例程
- Perl - 参考资料
- Perl - 格式
- Perl - 文件 I/O
- Perl - 目录
- Perl - 错误处理
- Perl - 特殊变量
- Perl - 编码标准
- Perl - 正则表达式
- Perl - 发送电子邮件
- Perl 高级
- Perl - 套接字编程
- Perl - 面向对象
- Perl - 数据库访问
- Perl - CGI 编程
- Perl - 包和模块
- Perl - 流程管理
- Perl - 嵌入式文档
- Perl - 函数参考
- Perl 有用资源
- Perl - 问题与解答
- Perl - 快速指南
- Perl - 有用的资源
- Perl - 讨论
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
perl_function_references.htm