为何Perl中IPC::SharedMem的$shm->remove无法删除共享内存段？

针对你遇到的IPC::SharedMem共享内存无法自动删除的问题，结合现象和代码细节，整理以下排查方向和解决办法：

1. 重复调用remove的无效操作 #

你连续调用了两次$shm->remove，但根据IPC::SharedMem的实现逻辑，第一次调用remove后，对象内部保存的shmid属性会被删除，第二次调用实际不会执行任何内核操作。虽然第一次调用返回了"0 but true"（表示系统调用成功），但重复调用不仅没有意义，还可能掩盖真实问题。

修复：仅调用一次remove，并添加验证步骤

my $shmid = $shm->id; # 提前保存共享内存ID
print "$me: removing Shared Memory (shmid: $shmid)\n" if $verbose > 1;
my $ret = $shm->remove;
print "$me: result of removing Shared Memory: $ret\n";

# 验证共享内存是否真的被删除
use IPC::SysV qw(IPC_STAT);
my $stat_buf = pack('L!', 0);
if (shmctl($shmid, IPC_STAT, $stat_buf) == -1) {
    print "$me: Shared memory $shmid successfully removed\n";
} else {
    print "$me: Shared memory $shmid still exists after remove\n";
}

2. 子进程共享内存关联未彻底清理 #

虽然子进程退出时会自动detach共享内存，但如果子进程中存在异常操作（比如手动detach后重新attach），可能导致内核中共享内存的引用计数异常。另外，主进程需确保所有子进程被彻底回收后，再执行删除操作。

修复：

• 在子进程退出前显式调用$shm->detach（进程退出会自动处理，但显式调用可避免潜在的引用计数问题）；
• 主进程使用waitpid(-1, 0)循环等待所有子进程退出，确保没有残留的子进程关联共享内存：

# 回收所有子进程
while ((my $pid = waitpid(-1, 0)) > 0) {
    print "$me: child $pid exited with status $?\n" if $verbose > 1;
}
# 再执行共享内存删除
$shm->remove;

3. 绕过IPC::SharedMem模块，直接调用底层系统调用 #

部分版本的IPC::SharedMem模块remove方法可能存在逻辑瑕疵，比如未正确处理shmctl(IPC_RMID)的返回值。此时可以直接调用Perl的底层系统调用完成删除：

修复：直接使用shmctl执行删除

use IPC::SysV qw(IPC_RMID);

# ... 其他代码 ...

my $shmid = $shm->id;
my $ret = shmctl($shmid, IPC_RMID, 0);
if ($ret == 0) {
    print "$me: Shared memory $shmid removed via shmctl\n";
} else {
    print "$me: Failed to remove shared memory $shmid: $!\n";
}

4. 内核同步延迟或特定版本bug #

你使用的SLES 12内核（4.12.14-122.176-default）可能存在共享内存删除的短暂同步延迟。可以在删除操作后添加短暂休眠，再检查共享内存状态：

$shm->remove;
sleep 1; # 等待内核同步状态
# 执行后续检查

内容的提问来源于stack exchange，提问作者U. Windl