Perl fork() 共享内存

Question

有没有办法在分叉之前将只读变量加载到内存中，并在不使用 virt 内存 x 子节点数的情况下将它们保留在那里？

只读内存默认共享并在写入时复制似乎是一个普遍的观点。我进行了测试，发现这是不真实的：

#!/usr/bin/perl

my $data;
$$data = 'a'x 1_000_000; #keep it in a ref just in case that matters

foreach (0..10){
    last unless my $pid = fork();
}   
<STDIN>;

当进程位于 STDIN 上时，我检查顶部：

  PID USER      PR  NI  VIRT  RES  SHR S %CPU %MEM    TIME+  COMMAND   

15982 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15983 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15984 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15985 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15986 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15987 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15988 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15989 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15990 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15991 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t                             
15992 wdev      20   0  121m 2540  188 S  0.0  0.1   0:00.00 foo.t  

果然，几乎所有的内存都在单独的子进程中。

我是否遗漏了什么，或者派生一个 perl 进程是否真的为每个孩子复制了整个数据结构集？

Answer 1

perl docs on fork 说“文件描述符（有时锁定这些描述符）是共享的，而其他所有内容都被复制。”

Answer 2

这取决于操作系统，或者您没有看到您认为您看到的内容。我将您的测试脚本修改为：

#!/usr/bin/env perl    

print `free`;

my $data = [ ('a') x 1000000 ];

for (1 .. 10) {
  print `free`;
  last unless fork;
} 

sleep 10;

使用./forktest | grep Mem 运行它，我得到如下输出：

Mem:       3979908    2866552    1113356          0     667388    1258560
Mem:       3979908    2917888    1062020          0     667388    1258560
Mem:       3979908    2918284    1061624          0     667388    1258560
Mem:       3979908    2918532    1061376          0     667388    1258560
Mem:       3979908    2918936    1060972          0     667388    1258560
Mem:       3979908    2919404    1060504          0     667388    1258560
Mem:       3979908    2919900    1060008          0     667388    1258560
Mem:       3979908    2919900    1060008          0     667388    1258560
Mem:       3979908    2920148    1059760          0     667388    1258560
Mem:       3979908    2920148    1059760          0     667388    1258560
Mem:       3979908    2920496    1059412          0     667388    1258560

其中第二列数字（总体第三列）是系统 RAM 的总使用量。请注意，当在程序开始时分配 $data 时，它会从 2866552 增加到 2917888，然后在分叉完成后保持相当稳定。

我怀疑您在top 中看到的是它使用特定于 IPC 的“共享内存”（即，已明确请求并分配为“共享”的内存块）和页面目前在写时复制的基础上可用于多个进程不符合该定义。