如何在mod_perl(Apache2)中实现线程间可读写数据的共享

核心实现方法 #

mod_perl运行在Apache worker多线程模式下时，可读写跨线程共享数据可通过三种成熟方案实现：

• threads::shared原生线程共享
  需在Apache启动阶段（即PerlRequire指定的启动脚本中）完成共享变量的初始化，不能在请求处理阶段声明共享变量，否则只会生成线程私有副本。示例初始化代码：

  # startup.pl 启动脚本中执行
  use threads::shared;
  # 声明支持跨线程共享的变量
  my $global_counter :shared = 0;
  my %global_config :shared;
  # 挂载到Apache进程全局空间，供所有请求handler访问
  $Apache2::RequestUtil::pnotes{global_share} = {
      counter => \$global_counter,
      config => \%global_config
  };
  

  请求阶段直接调用全局空间的共享变量即可实现跨线程读写，修改后的数据对所有线程立即可见。
• Apache2::SharedMem专用共享内存模块
  是mod_perl官方生态提供的共享内存封装，无需手动处理线程变量的生命周期，自带序列化支持，可跨线程、跨Apache子进程共享数据，适合需要持久化存储的共享场景。
• 外置轻量存储
  若共享数据结构复杂、访问量高，可使用本地Redis、开启WAL模式的SQLite作为共享存储层，无需适配mod_perl的线程模型，稳定性更高，扩容更灵活。

线程间访问协调机制 #

针对共享数据的并发读写冲突，可根据场景选择以下协调机制：

• 排他锁
  是最通用的冲突解决机制，直接使用threads::shared自带的lock()函数即可实现，锁的作用域为当前代码块，退出后自动释放，适合读写冲突频繁的场景。示例代码：

  my $counter = $Apache2::RequestUtil::pnotes{global_share}{counter};
  {
      lock($$counter);
      # 锁区间内只有当前线程可操作该变量
      $$counter += 1;
  }
  

• 读写锁
  基于Thread::RWLock模块实现，支持多线程并行读、仅写操作排他，性能远高于排他锁，适合读多写少的共享场景。
• 信号量
  基于Thread::Semaphore模块实现，可自定义同时访问共享资源的最大线程数，适合批量资源类共享场景的流量控制。
• 原子操作
  仅针对简单数值增减、比较交换场景，可直接调用threads::shared提供的shared_inc、shared_dec、shared_cas等原子函数，无需手动加锁，性能最优。

注意：不可在共享变量中存储未序列化的Perl引用、文件句柄、socket等非线程安全结构，大尺寸数据建议先通过Storable模块序列化后再存储，避免内存损坏。

内容的提问来源于stack exchange，提问作者DavidBooth