Perl shmget 函数

• 

  描述

  shmget返回段匹配KEY的共享内存段ID。创建一个新的共享内存段（至少SIZE个字节），前提是KEY尚未具有与其关联的段，或者KEY等于常量IPC_PRIVATE。
• 

  句法

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

  
  shmget KEY, SIZE, FLAGS
  
  shmget KEY
  

• 

  返回值

  此函数在失败时返回undef，在成功时返回Shared memory ID。
• 

  示例

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

   
  # 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（）;读取其内容。

   
  # 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