代码干货 | perl信号量实现进程间通信

最新推荐文章于 2024-10-25 16:19:26 发布

转载最新推荐文章于 2024-10-25 16:19:26 发布 · 707 阅读

文章标签：

#shell #多进程 #多线程 #数据库迁移 #perl

代码干货专栏收录该内容

38 篇文章

订阅专栏

本文介绍了一个利用Perl进行数据库迁移的实际案例，详细讲述了如何采用信号量实现进程间的简单计数通信，以此来统计子进程完成的任务数量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本文来源于阿里云-云栖社区，原文点击这里。

近期在给一个客户编写数据库迁移工具，语言使用的是不太熟悉的perl。而需要做进程间通信源自这样一个需求，即并行迁移，想要真正的提升性能，我没有选择多线程的方式，而是直接选择多进程。

而我们都知道，多进程和多线程的区别就在于多进程的稳定性，多进程的内存资源是独立的，而多线程确实和父进程共享的。场景图示如下，

描述一下，首先通过简单的算法，将表大致平均地分到多个子进程，每个子进程任务完成后统计成功的表数量。那么统计表数量的变量就是关键了，在这里多个进程是需要共享这个变量的

linux下的进程间通信，共有三个媒介，消息队列、共享内存段以及信号量。通常共享内存段和信号量配合使用，而这里我们只需要做简单的持锁+计数+释锁，这么说来，此场景下信号量就是个天然的计数器了。
这三种媒介可以使用ipcs命令查看,

使用

如下代码示例，

#!/usr/bin/perl
use IPC::SysV qw(S_IRWXU IPC_CREAT);
use IPC::Semaphore;

my $sem0;
my $sem1;
my @childs;

my $sem = IPC::Semaphore->new(1556, 1, S_IRWXU|IPC_CREAT)
        || die "IPC::Semaphore->new: $!\n";
##创建一个信号量集，1556是key，1是信号量的个数，S_IRWXU即700权限，IPC_CREAT没有则创建
$sem->setval(0,0);
##设置初始值，这里只有一个信号量则下标为0，初始值为0
for ($i=0; $i<5; $i++){
                if($pid=fork())
                        {
                        $childs[$i] = $pid;
                }elsif(defined $pid){
                        sleep(1);
                        $sem->op(0, +1, SEM_UNDO);
##op方法通过semop来调用系统PV原子操作，子进程退出时会通过 SEM_UNDO 来解锁
                        exit;
                }else{
                        print "Error!\n";
                        exit;
                }
}
        for  $p (@childs){
                waitpid($p, 0);
        }

$sem1 = $sem->getval(0);
##获取信号量值
print $sem1."\n";